



TUBE WAY 


WOOLUF! 


Written by: Rainbow Software 



j 

L 

■ * 








HALLS OF THE 
THINGS 

Written by: Neil Mottershead 
Simon Brattel and 
Martin Horsley 


INVASION OF THE 
BODY SNATCHAS 

Written by: Simon Brattel 
and Neil Mottershead 


From the creators of 'Halls of the Things,' 'Invasion of the body snatchas,' 
and many other software clossics come these exciting new gomes. 

Games to tax your judgement and puzzle and frustrate you for months on end. 

Don't forget our other titles, which have attracted enthusiastic reviews like 
"Spectacular, one of the best games I've seen"... POPULAR COMPUTING WEEKLY and 
'Excellent, dangerously addictive, could change the Spectrum games scene overnight"... SINCLAIR USER 


Selected titles available from:- 

S 


John Menzies 


ZEUS 


ASSEMBLER 


HMV 

WOOLWORTH 

other large department stores ond all good major 
software retailers. Alternatively, send the coupon to:- 


GBMS 


All titles for 
48K Spectrum 
unless 
otherwise 
stated 


PROGRAMMERS ! WRITTEN ANY SOFTWARE THAT COMES UP 
TO OUR STANDARDS? IF SO SEND IT TO US FOR EVALUATION. 
WE OFFER GENEROUS ROYALTIES. 


Written by: 
Graham Stafford 


CRYSTAL COMPUTING, 2 ASHTON WAY, 

EAST HERRINGTON, SUNDERLAND SR3 3RX. 

TRADE ENQUIRIES WELCOME:— Tel: 061 -205 6603. 

CRYSTAL COMPUTING IS THE TRADING NAME OF CHANDREX LTD. 

TTe rome GvVd r> uied urrfer ken<e 


Please supply. INVASION OF THE BODY SNATCHAS □ £6.50 
HALLS OF THE THINGSQ £7.50 THE DUNGEON MASTER □ £7.50 
IT'STHE WOOLUF □ £6.50 POMMELS REVENGED £6.50 
TUBE WAY ARMY □ £7.50 ZEUS 64□ £9.95 

CATALOGUE OF LATEST SOFTWARE □ 


NAME 


ADDRESS 


I enclose cheque/p.o. for 
luded. Ovt 


P & P included. Overseas orders, please add £1.50 per item. 
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2 GO SUB 8000 

10 BORDER 0' PAPER 0; INK 6 C 
LS 

20 LET sc-0 

25 LET cuP-0■ LET nd-1 LET a* 
* M i“« LET di-0 1 LET x-18 LET 9 = 
5' LET 9-4' LET d-Q« LET t-0- LE 
T P=0> LET n»17 ■ LET b-7- LET bl 
-13« LET b2-l9 

35 LET u*-"<9a;3*»P;24*9a;3*sP 

; 9 * )" 

36 LET x«- ,, <32*9a>" 

40 FOR f-0 TO 21' PRINT "(W)' 

; TAB 31; 9* ) u = NEXT f 

41 PRINT AT 0/0;x* 

42 FOR f-4 TO 19 STEP 5- PRINT 
AT f,0;u*- NEXT f 

43 PRINT AT 20/0;"<9a;3*9e;25* 
9a;3*9*;9a)";AT 2l,0;x* 

44 PRINT AT 3,27; INK 4;"<9c>" 

45 FOR f-14 TO 18' PRINT AT P, 
26; INK 5; H <9b>"' NEXT f 

46 FOR f=4 TO 8' PRINT AT f/26 
; INK 5;"< 9b)" 1 NEXT f 

47 FOR f=9 TO 13' PRINT AT f, 5 
; INK 5;"': 9b)"' NEXT f 

48 PRINT AT 18,27; INK 7;'*<9d) 
";AT 4,3; INK 7; "<9*1)" 

50 FOR f-4 TO 18' PRINT AT f,2 
; INK 5;"< 9b )"' NEXT f 

51 FOR f-15 TO 18- PRINT AT f, 
8; INK 7; "< 99 )'*' NEXT f 

52 PRINT AT n.8; INK 7;"<9h)" 

53 PRINT AT 18,16; "< 9a )" 

54 PRINT AT 8,15;"C9a) "; INK 
2; "< 9k )"; INK 6;" <9k>" 

55 PRINT AT 3,9; INK 3;"C9f)" 

56 PRINT AT I3,b-1; INK 4;" <9 
l )";AT 13/bl-l; INK 4;" <9l)";AT 

I3,b2-l; INK 4;" <9l)" 

1O0 PRINT AT x,*;” " 

105 IF INKEY*-"8" THEN LET dl¬ 


l' LET a»-"< 9i >“ 

110 IF INKEY*--5“ THEN LET di- 
-1* LET aS-"<9j) M 
112 LET 9-9+di 
115 PRINT AT X,*; INK 5;aS 
117 IF x-3 AND 9-4 THEN LET 9 = 
v-l« GO TO 5000 
120 IF s>27 OR 9<4 THEN GO TO 
7000 

130 IF x-18 AND 9-26 AND INKEY* 
-"0" THEN GO SUB 6000 
140 IF x-8 AND 9=26 AND INKEYS- 
"O" THEN GO SUB 6000 
150 IF x=13 AND 9-5 AND INKEYS- 
-0“ THEN GO SUB 6000 
155 IF INKEYS="0" THEN PRINT A 
T x,9," “• LET x=x-l LET 9-9+di 
' PRINT AT X/9; INK 7;aS = BEEP . 
05,10- PRINT AT X/9,'' "> LET 9=9 
+di : LET x-x+1 

160 LET r>-r.+r>d< PRINT rt n,8; I 
NK 7; "< 9h >“ 

162 BEEP .003.10 
165 IF n-15 THEN LET nd-1 
170 IF n-18 THEN LET nd— 1 
180 IF x»n AND 9-8 THEN GO TO 
7010 

190 LET b=b+l« LET bl=bl+l■ LET 
b2=b2+l 

200 PRINT AT 13/b-l; INK 4;<9 
1 )";AT 13/bl-l; INK 4;" <9l)";AT 
I3,b2-1; INK 4," <9l> M 

202 IF b=24 THEN PRINT AT 13,2 
4LET b-5 

203 IF bl-24 THEN PRINT AT 13, 
24;" LET bl-5 

204 IF b2*24 THEN PRINT AT 13, 
24;" ■« LET b2=5 

210 IF <x-13 AND 9=b> OR <x=13 
AND 9-bl) OR ( x»13 AND 9-b2) THE 
N GO TO 7020 

220 IF x-18 AND 9=27 AND d=0 TH 


EN LET d-1- LET sc-sc+10- BEEP 
.5,10 

230 IF < x-18 AND 9-16) OR < x-e 
AND 9-15) OR < x-8 AND 9 = 19) THEN 
GO TO 7030 

249 IF x-8 AND 9=17 AND cuP-0 T 
HEN LET sc-sc+30 : LET cuP-1- 8E 
EP .5,10 

250 IF x-3 AND 9-27 AND t-0 THE 
N LET t=l= LET sc-sc+60' BEEP . 
5,10 

260 IF x-3 AND 9-9+1 AND d-1 TH 
EN LET d-0< LET *c-ac+50- BEEP 
.5,10- LET 99-24- PRINT AT x,9;” 
LET 9-8 

270 IF x-3 AND 9=9+1 AND d-0 TH 
EN GO TO 7040 
290 PRINT AT 3,9;" '* 

300 LET 9-9+< 9 >9 )-< 9<9 ) 

310 PRINT AT 3,9; INK 3;"<9f>" 
980 PRINT AT 0,l3;ac 

990 IF nd«l THEN PRINT AT n,8; 
INK 7; "< 99 )" 

991 IF nd—1 THEN PRINT AT r>,8 
" 

998 BEEP .003,10 

999 GO TO 100 

500O PRINT AT X/9-2," "« LET 9=9 
-1 * LET x=x+l- FOR f»x TO 18= PR 
INT AT P, 9 ; INK 5;a*' BEEP .5,10 
- PRINT AT f, 9 ; INK 5;"b"• NEXT 
f- LET »c=sc+40 
5010 CLS * GO TO 21 
6000 FOR f-1 TO 5- PRINT AT x,v; 
a*' BEEP .05,10 PRINT AT x,9, 1 
NK 5;"b" 1 LET x=x-l- NEXT f- BEE 
P .5/10- RETURN 

7000 FOR f-x TO 20' PRINT AT f,y 
;a*- BEEP .01,10' PRINT AT f,9;" 

NEXT f- BEEP .5,10- CLS > PR 
INT AT 10.10; FLASH 1;"SPLAT!";A 
T 2i:10;"SCORE'”;sc PAUSE 0- PA 
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R ACE ALONG the corridors of the 
ancient stronghold, dodge the 
tannonballs and scale the ladders 
on your way to the treasure trove. You 
will encounter new hazards on each 
floor of The Spiral Tower and only 
your dexterity will save you in this 
month’s program of the month. 

The Spiral Tower was written by 
Graeme Johnston of Ascot, Berkshire 
for the 16K Spectrum. He was given his 
Spectrum for his 12th birthday in 
March and this is one of the first pro¬ 
grams he has written. 


USE 0- RUN 

7010 BEEP .5,1& ! CLS • PRINT AT 
10,18; FLASH 1;"HUNG!";AT 2l,10; 
"SCORE ! ;sc■ PAUSE 0- PAUSE 0- R 
UN 

7020 BEEP .5,10 CLS ■ PRINT AT 
10,10; FLASH 1;"SQUASHED!";AT 21 
,10;"SCORE-";sc* PAUSE 0- PAUSE 
0 1 RUN 

7030 BEEP .5,10' CLS • PRINT AT 
10,10; FLASH 1;"RAN INTO A WALL! 
";AT 21,10;"SCORE'";sc- PAUSE Q 
PAUSE 0- RUN 

7040 BEEP .5,10' CLS ' PRINT AT 
10,10; FLASH 1;"EATEN BY A GHOUL 
!";AT 2l,10;"SCORE'";sc- PAUSE 0 
- PAUSE 0 1 RUN 

8000 FOR f-USR "j." TO USR "m"+7' 
READ a- POKE f,*' NEXT f 

8005 PRINT AT 0,B;;AT 2,6;;AT 5, 
0;"DODGE THE NOOSE <9h> , JUMP T 
HE WALL <9*> , GRAB THE DAGGER 
(9d> ,SCALE THE LADDER , DODGE T 
HE BOMBS <9l> , UP THE LADDER 

, JUMPTHE WALLS AND GRAB THE CU 
P ,SCALE THE LADDER , GRAB 

THE TREASURE <9c> ,KILL THE 
GHOUL <9f>, AND ESCAPE DOWN THE 
LADDER." " '"CONTROLS - 5-LEFT,8-RI 
GHT,0-JUMP"' ' " PRESS ANY 

KEY" 

8006 PAUSE 0 
8010 RETURN 

9000 DATA 255,129,129,129,129,12 

9.129.255 

9001 DATA 66,66,126,66,66,66,126 
,66 

9002 DATA 255,129,189,189,152,15 

3.129.255 

9003 DATA 16,16,16,16,16,124,16, 
16 

9804 DATA 0,0,8,0,0,85,e5,255 

9005 DATA 24,36,60,36,66,126,153 
, 129 

9006 DATA 16,56,16,56,16,56,16,5 
6 

9087 DATA 16,56,16,56,16,40,68,5 
6 

9008 DATA 24,24,16,60,48,120,136 
,4 

9009 DATA 24,24,8,60,12,30,17,32 

9810 DATA 126,126,126,126,60,24, 
24,126 

9811 DATA 60,126,255,255,255,255 
,126,60 

9012 DATA 255,0,0,0,0,0,0,0 


SINCLAIR PROGRAMS December 1983 


43 




Here's a sure-fire way of making certain 1984 is packed full of fun for you and 
your friends. We’ve searched for brilliant new program sources throughout the 
U.K. and North America to find an exciting collection of new games—and 
business programs—many of which cannot be bought by mail order from any 
other source! These are our latest exclusive offerings. ^ 






FREE BLANK Cl 5 COMPUTER CASSETTE 
WITH EVERY TWO CASSETTES YOU ORDER! 

Remember there’s no limit to the number of free 
. cassettes you receive if your order justifies them so - 
^^^\/vhy not get together with friends or user group 
members and share the freebies? 


GREAT VALUE! TREMENDOUS SELECTION! PLUS A FREE 
OFFER EVERY TIME! 

Rll in the order form right away — we’re guaranteeing fast 
delivery, quality and satisfaction [after all, we want you to 
come back for more! ] 

The Software Workshop, Yew Tree, Selborne, 

Hants GU34 3JP 


Order * 
not entire 

your pur 
days and 





SNOOKER# 

Visions Snooker brings all the 
excitement and all the tension of big 
i.me tournaments to your TV set. With 
an advanced program written by a 
19 year old undergraduate at 
Queens College Cambridge, it 
makes Pot Black look like a load 
ol old balls. Visions Snooker for 
the 16K ZX' Spectrum. It’s an 
exciting test of your skills on the 

cue. 

Cassette price: £8.95 
Ref. No: 2-53 


SHEER PANIC# 

Mining for Magnetic Quartz is a 
hazardous business You have ro 
ensure that there is plenty of oxygen 
to breathe, fight off the local 
monsters with only a shovel and 
counter interference with your 
consciousness. 

ZX Spectrum 16K or 48K. 
Cassette price: £5.95. 

Ref. No: 2-51 


And here’s a further 
selection of the latest 
games, the best value 
software for your Spectrum 

Spectrum Software 

2-13 Sentinel 

Guard you mother ship against alien 

attacks 48K RAM £4.95 

2-14 Meteor Storm 

Spectrum version of the ever-popular 

arcade game. 16K or 48K RAM £4.95 

2-15 Star Trek 

Popular space program brought to 

life by excellent graphics. 48K RAM £4.95 

2-21 Frogger 

Manoeuvre the frog across the road 

avoiding heavy traffic. 48K RAM £5.95 

2-23 Arcadia 

The expert's version of the popular 

invaders' game. 16K or 48K RAM £5.95 

2-24 Golf 

Tne finest of golf handicap games 

48K RAM £5.95 

2-26 Derby Day 

This favourite has to be a winner 

48K RAM £5.95 


To: The Software Workshop, Yew Tree, Selborne, Hants GU34 3jp") 

I wish to order the following programs. I understand that: ■] 

• I will receive a FREE blank cassette with every 2 programs ordered 

* I can return products within seven days if not entirely satisfied and 1 . 


■ 

dence. H you are 

h the quahty o 
to us within / 

, a replacement. 



































CAV<’“ 


P ING PONG allows two players 
to play on the 16K or 48K Spec¬ 
trum. As the body of the program 
is written in machine code, super fast 
shoots the ball across the screen and 


10 CLEAR 31743- CO SUB 1000 
20 BORDER 4- PAPER 0< INK 7- C 
LS 

30 LET ¥¥-40- LET xs-3' LET ¥* 
-4- LET P*-"PING-PGNG" 1 GO SUB 2 
000 

40 PRINT AT 15,7;"Cl au* J#n*#n 
1993" 

50 LET ¥¥-160- LET x*-l• LET ¥ 
*■2 * LET P*-"Pr#ft* atm k#¥ to CO 
ntinu#"' GO SUB 2000 
£0 PRU3E 0- CLS 
70 PRINT AT 2,0;" Thi* is a 9a 
m# for 2 PlA¥ #r*. EAeh PlA¥#r 

control* a bAt/ which CAn b 

• mov#d uP And down In An Att#m 

Pt to hit th* b a ll." 

80 PRINT AT 7,0;" Th# PlA¥#r a 
t th# l#ft *id# control* hi 

* bAt with th# k#¥* Q And R. Th 

# P1A¥#r At th# ri9ht »id# 

control* hi* bAt with th# k# 

¥* P And ENTER." 

90 PRINT AT 13,0;" Uh#n a bAll 
1* lo*t/ a n#w on# l* AutomAt 
ic*ll¥ *uPPU#d. Th# «Am# is ov 
•r/ uh#n on# of th# Pl*¥#r* hA 

* won 10 bAll*." 

100 PRINT AT 20/9;"PRESS ANY KE 


• DRAW 196/0 

130 PRINT AT 9/7;"1 - Slow" 

140 PRINT AT 9/7;"2 - M#diu« *P 

•#d" 

150 PRINT AT 10/7;"3 - FAftt" 

160 PRINT AT 11/7; "4 - V#rw fA* 


280 GO TO 340 

290 LET n-USR 31744- FOR A-l TO 
3' NEXT A 1 IF n-0 THEN GO TO 29 


200 GO TO 340 

310 LET n-USR 31744- FOR a-1 TO 
1- NEXT a- IF n-0 THEN GO TO 31 


170 PRINT AT 12/7;"5 - SuPer f* 
*t" 

180 PRINT AT 17/2;"Pr#** on# di 
9it <1-5> H 

190 PAUSE 0' LET »*°INKEY*• IF 
*•<"1" OR **>"5 M THEN GO TO 190 
200 LET lft-0- LET r*-0 
210 PAPER 2- INK 2- CLS 
220 PRINT AT 0/0; " Ahfffffffffff 
££gffffffffffffff1 b" ’ FOR n-1 TO 
20 : PRINT AT n/0;" adccccccccccc 
ccecccccccccccccceb "■ NEXT n- PR 
I NT AT 21 / 01- 1J99999M9999M9999 
99999999999kb“ 

230 INK 6- POKE 23296/10’ POKE 
23297/1- POKE 23298/10- POKE 232 
99/1* POKE 23300.10- POKE 23301, 
1- POKE 23302,10- POKE 23303,1- 
POKE 23304,0- POKE 23305,1 
240 GO TO 230+20*VAL ft* 

250 LET n-USR 31744- FOR A-l TO 
10- NEXT A- IF n-0 THEN GO TO 2 


320 GO TO 340 

330 LET n-USR 31744- IF n-0 THE 
N GO TO 330 

340 LET l*-l*+< CHR* n-"L">- LET 
r*-r*+< CHR* n-"R"> 

350 PAPER 0- INK 7- CLS 

360 FOR n-20 TO 0 STEP -2- BEEP 

.05,n- NEXT n 

370 LET *¥-48- LET x*-4 - LET ¥* 
-4- LET P*-STR* l*+" - "♦STR* r* • 
GO SUB 2000 

3B0 IF l*<10 AND r*<10 THEN PAU 
SE 50- GO TO 210 
390 LET ¥¥-100- LET x*-l- LET ¥ 
*"2- LET P*-" WE'VE GOT A WINNER 
"• FLASH 1- GO SUB 2000- FLASH 


400 LET ¥¥-152- LET x*-l• LET ¥ 
*-2 . LET P*-"Do ¥Ou WAnt a n#w 9 
xm#7 < ¥/n)"- GO SUB 2000 
410 PAU8E 0 

420 IF INKEY*m"¥" OR INKEY*-"Y" 
THEN GO TO 120 

430 IP INKEY*-"n" OR INKEY*-"N" 


110 PAUSE 0 

120 CLS • PRINT AT 4,2;"S#l#ct 
*P##d of th# 9A.m# -" - PLOT 16,134 


260 GO TO 340 

270 LET n-USR 31744- FOR a-1 TO 
7- NEXT a- IF n-0 THEN GO TO 27 
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should be played by expert players only. 
When the game is RUN, wait until the 
title page is displayed before pressing 
any key. Written by Claus Jensen of 
Vaerlose, Denmark. 


THEN STOP 
440 CO TO 410 

1000 PRINT "Initializing." 

1010 RESTORE • LET a-31744' LET 
c -0 

1020 READ h*• LET n-1 

1030 LET hi■CODE hi<n>-48‘ IF hi 

>9 THEN LET hi-hi-7 

1040 LET h2-C0DE h«<n+i>-48« IF 

h2>9 THEN LET h2-h2-7 

1050 POKE a,16#hl+h2• LET c-c+PE 

EK a 1 LET a-a+1■ LET n-n+2 

1060 IF a-31744+469 THEN PRINT " 

Section 4 fl loaded"« LET a-32236 

1070 IF a-32256+277 THEN PRINT " 

Section **2 loaded"- LET a-USR "a 


EBFED40CB4020013CFE01280801FEDFE 
D40C84020013D32025B3A045B2108588 
632045B3R055B21095B8632055BDDZ10 
0583A015021005BBE26- 
1140 DATA "47474FCB38CB38CB38CB2 
1CB21C821CB21CB21DD09DDCBE096DDC 
80096DDCB2096DD2100583R005B474FC 
B38CB30CB38CB21CB21CB21CB21CB21D 
D09DDCBE0D6DDCB00D6DDCB20D632015 
BOD211F583R035B21025BBE2847474FC 
B38CB38CB38CB21CB21" 

1150 DATA "C821CB21CB21DD09DDCBE 
096DDCB0096DDCB2096DD21lF583A023 
B474FCB38CB38CB38C821CB21CB21CB2 
1CB21DD09DDCBE0D6DDCB00D6DDCB20D 
632035821005B3R0638474FCB38CB38C 
B38CB21C021CB21CB21CB21093E00473 
R075B4F09CB96210050" 

1160 ORTA " 3A0458474FCB38CB38C83 
8CB21CB21CB21CB21CB21093E00473R0 
55B4F09CBD63A045B32063B3A055B320 
75B3A055BFE002004015200C9FE1F200 
4014C00C9FE0120052100381807FE1E2 
04621025B3R043B965FCB7F2802ED44F 
E002817FE012013FE02" 

1170 DATA "202C7B21005B86FE01280 
6FEFF2802181D3R0B5B8BFE00200RCB7 
F28043EFF18023E01320B5B3A0958ED4 
432095B3A045BFE002804FE1520003A0 
85BEO4432083B010000C9■ 

1180 DATA "210F5B7E2322003B6F3CC 
82600292929ED4B365C093E0832045B3 
A003B32095B3A0R5B32085B3E0932055 


B7E2322025B0732065B3A05333D20323 
A045B3D20103A0E5B473A0C5B4F3A0R5 
B810520FC320A3B2A005BC3037E32045 
B3A0D3B473A093B8032" 

1190 DATA “093B2R0258C3207E32055 
B3R0C3B473A095B32075B3A0D584FC5C 
DA47EC13A073B3C32075B0D20F13A005 
B3C32085B0520DD3R065BC3307EB0402 
010080402013A8E5CEEFF473A8O5CA04 
73R0B5BE6F86F3R075BFEC0D01F1F1FE 
61F67CB1CCB1DCB1CCB" 

1200 DATA "1DCB1CCB1D3E58B4673A8 
E5CA6B0773A075B47E607F64067781F1 
F1FE618B467781717E6E06F3R0B58471 
F1F1FE61FB36FEB219C7E70E6074F060 
009461A21065BCB462803B012C92FB02 
F12C9" 

1210 DATA "3F3F3F3F3F3F3F3FFCFCF 
CFCFCFCFCFC3C7EFFFFFFFF7E3C3C7E7 
F7F7F7F7E3C3C7EFEFEFEFE7E3C007EF 
FFFFFFF7E3C3C7EFFFFFFFF7E00007E7 
F7F7F7F7E3C007EFEFEFEFE7E3C3C7E7 
F7F7F7F7E003C7EFEFEFEFE7E00" 

2000 LET xx-<256-8*xs*LEN P«>/2 
2010 POKE 23306,xx 1 POKE 23307 
POKE 23308,xs 1 POKE 23309,*8' 
POKE 23310,8 

2020 LET u-LEN *>*■ FOR n-1 TO w 
POKE 23310+n,CODE P*<n)> NEXT n 
■ POKE 23311+u,255 
2030 LET u-USR 32256' RETURN 


1080 IF a-USR "a"+88 THEN PRINT 
"Section #3 loaded"- GO TO 1110 
1090 IF n>LEN h« THEN CO TO 1020 
1100 CO TO 1030 

1110 IF c-79688 THEN PRINT "Imt 
ialization ok"> PAUSE 100- RETUR 


1120 PRINT FLASH 1 i "WARNING<"j F 
LASH 0j" There is an error in 
one or more of the DATA state¬ 
ment*. Do not try to execute the 
Pro9ram, since this may cause a 

System C rash."' STOP _ 

1130 DATA "3A005BFE14280A01FEFDE 
D40CB4020013CFE01280A01FEFBED40C 
B4020013D32005B3A023BFE14280A01F 
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13 REM 

15 LET G=0 

16 LET S=0 
20 LET L=16 
£2 LET C=15 
30 LET A=6 
32 LET B~lh 
37 CL3 

40 PR I NT RT 2 / 8 ; " < 2* l sP ^monster- 
r< 2* i sp >«' 

50 PRINT RT 4/2;"YOU RRE INSID 
E fl DRAGONS LAIR. IT WILL CHASE 
YOU THROUGH THE LAIR BUT IT MIL 
L DROP ITS TREASURE.PICK IJ 
P ITS TREASURE*. >IF YOU MOVE IN 
TO THE BLOCKED EXIT(e) IT WILL 
NOT SENSE YOU." 

60 PRINT AT 18/17;"7";TAB 7; "U 
SE KEYS=5+8";TAB 17;"6" 

70 PAUSE 46000 
80 PRINT AT 0/0;"TREASURE® 
HIGH- 11 ; G 

90 PRINT "< 31*93. >" 

100 PRI NT " < 9h : 14* l sp •9h : 14*l sP 

«9h > " 


i5P ; isp ; 9h • 3. sp : 9h : 1 sp • 9h ; isp = 9h ! 
i sP«9h : isP=9h : i sp •9h >" 

17G PRINT "<9h : 9 *i sP : 9h : 3*isP : 9 
h : isP•9h : 3*isP ! 9h ! 9*lsp^9h>" 

180 PRINT "< 9h : lsP : 7*9h : l sP : 9h* 
9 *i sP • 9h ! isp : 7*9h is? ■ 9h >" 

190 PRINT "C 9h : 9*isP ! 9h : isP : 7*9 
h : isp : 9h ; 9 *i s? •9h>" 

200 PRINT "< 9h ! i sP ; 3*9h*isP *3*9 
h-isP : 9h : 2* isp-5*9h-2*isP 9h-isP 
: 3*9h is?• 3*9h : isp : 9h >" 

210 PRINT "<9h-13*isP : 9h : ie : 9h : 
13*isP : 9h >" 

220 PRINT "<9h•xsP ^ 5*9h*5*isP•9 
h • isP • 9h : isP = 9h : isp • 9h ■ 5*isP • 5*9 
h : isp 9h:*" 

230 PRINT M <9h isp-3*9h•3 *i sp•3 
*9h •• l sp • 9h • 5* i SP • 9h * i sp • 3*9h •• 3* i 
sp : 3*9h : isp *9h>" 

240 PRINT "< 9h ; 29*lsP : 9h >" 

250 PRINT "<Oh * 1SP•3*9h* 3*isP * 3 
*9h i sP : oh = 5 *i sP =Oh ! isP : 3*9h•3 *i 
sp-3*9h•isP oh> M 
260 PRINT "* oh * 13*isP *3*9h ; 13*l 
sp : 9h>" 


110 PRINT "< 9h -is? ■ 6*9h•isP•5*9 
h : isp•O h•isp : 5*9h : isp• 6*9h ! isp »o 
h > " 

120 PR I NT M f. 9h * 14*isP : 9h f 14*i sP 
: 9h > “ 

130 PR I NT " (. 9h : 1 sP ! 9h : i sp : 9h ** l s 
p : 9h : 3.sP ; 9h : isp * 9h ! isp * 9h ; isp : 3* 
Oh : isP : 9h : i sP f 9h : i sP : 9h : i sP•9h : i 
sP•9h ! isp : 9h«isp ; 9h)" 

140 PRINT "* 9h : i sP : 9h r l sp : 9h : i s 
p•9h : i sp : 9h : isP : 9h 5 isp * oh «isp * 3* 
i sP : l sP s 9h • i sP : 9h ! l sp - 9h 1 l sP 5 9h : 
1SP : oh : 1SP : 9h : lSP : 9h >" 

150 PRINT "<9h s isP s 9h ? isP-9h : is 
p ? 9h : 3. sP ; 9h : l sP * 9h : i sP : 9h * i sP 1 3* 
i sP : i sP • 9h : l sP : 9h : i sP : 9h : l sP ! 9h : 
i sp*9h : 3sP *9h is? •9h> " 

160 PRINT "< oh ; i sP : 9h ! lsP•9h ! is 
P : 9h : isP : 9h 5 lsp•9h-isP r 9h : isP * 3* 


270 PRINT "<9h•isP J 3*9h : 3*isP 1 3 
*9h *isP•9h=isp : 3*9h «isp * 9h *isP *3 
*9h ; 3*lSP *3*9h*lSP : 9h>" 

280 PRiNT "<9h : 13*lsP ; 3*9h =13*i 
sp• 9h>" 

290 PRINT "< 31*9a >" 

300 REM MOVE MAN 
310 LET LI“L 
320 LET C1=C 

340 LET L-L+<. INKEY$- ,, 6" >-< INKEY 

350 LET C*C+C INKEY9 3S,, 8 11 >-< INKEY 
$="5"> 

355 PRINT AT L/C; 

360 LET Q-PEEK CPEEK 16398+256* 
PEEK 16399> 

370 IF QOB THEN GOTO 300 
375 LET C-Cl 
380 LET L=L1 


Y OU ARE trapped in the deadly 
maze which is the Werewoif 
Lair and the werewolf is on 
your trail. Avoid him for as long as 
possible and try to collect all the trea¬ 
sure he drops. If you hide in the door¬ 
way marked “E” the werewolf will not 
be able to sense you. 

Written for the 16K ZX-81 by Neil 
Stevens of Shoreham-by-Sea, Sussex. 
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390 

IF 0=11 THEN GOTO 9000 

640 

LET B=B1 

400 

IF 0=151 THEN LET S=S+1 

680 

PRINT RT Rl/Bl;"<i*)";RT R/ 

410 

PRINT RT Ll/Cl;"<isP>";flT L 

B; " 

i ii 

/ C; "< io>" 

690 

IF 6/5=1NT < S/5 ) THEN PRINT 

500 

REM MOVE MONSTER 

RT 0/10;S 

510 

LET R1=R 

700 

IF L< >13 OR 0015 THEN GOTO 

520 

LET B1=B 

300 


520 

LET R=fi+< R<L >-<R >L> 

710 

IF INKEY$< >"" THEN GOTO 300 

540 

PRINT RT R/B; 

720 

GOTO 700 

550 

LET Q=PEEK <PEEK 16398+256* 

9000 

PRINT RT Rl/Bl;"<i*)" 

PEEK 

16399> 

9010 

FOR F=1 TO 18 

560 

IF 0=180 THEN GOTO 9000 

9Q20 

PRINT RT L/C;"<9s)" 

570 

IF flOfil RND 008 THEN GOTO 

9030 

PRINT RT L/C; ,, <9d) M 

6S0 


904Q 

NEXT F 

580 

LET fl*fll 

9050 

PRINT RT 21 / 8; “< 99 5 9f‘ : isP )9 

590 

LET B=B+< B<C >-< B>C > 

ot yer( isP ’9f ; 99>" 

600 

PRINT RT R/B; 

9060 

IF S>G THEN LET G=S 

610 

LET GNPEEK <PEEK 16398+256* 

9080 

GOTO 16 

PEEK 

16399) 

9900 

SAVE "MUNSTEr" 

620 

IF 0=180 THEN GOTO 9000 

9910 

REM "BY NEIL STEVENS" 

630 

IF 008 THEN GOTO 680 

9920 

RUN 
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F LITE is an addictive dodge ’em 
game. You must avoid the deadly 
heat-seeking missiles heading for 
you and at the same time you must try 
and hit an enemy target to gain points. 

Flite was written by Peter Davies of 
Streatham, London for the 16K Spec¬ 
trum. 


10 FOR n=0 TO 15- PERL) a POKE 
USR "a"+n,a ; NEXT n 
20 DATA 0,62,0b,127,3b,127,85, 
62,0,62,127,127,127,127,127,62 
2b BORDER 1' PAPER 6' CLS 
30 PRINT INK 9;" DODO 

ER", " '"Dod9e the INK 5;"<9a> 
INK 9,"'s and the INK 4 
"i INK 0;"'s"'''"Hit the INK 
2; "< 9h )"; INK 0;"'- s to score Poi 

rts"'''"Control Keys UP. 

" /M DOWN. 

40 LET hs-0- LET mx-INT <RND*2 
0 >+6 : LET my=20 

44 PRINT AT 21,0; INK 0;" PRE 
SS ANY KEY TO START"- PAUSE le3 
4b CLS - LET s=0- LET 1=3 
b0 FOR n=l TO 100 
5b LET x=l+INT <RNP*3l»* LET y 
-t+INT <RND*20> 

66 IF SCREENS <y,x>=“" THEN 0 
u Tu 55 

70 PRINT AT y, x; INK 2;“<9a>"- 
NEXT n 

60 FOR n-1 TO 20 
85 LET x-l+INT (. RND*31 >• LET y 
=1+INT <RND*20> 

SO IF SCREENS <y,x>="" THEN G 

o to es 

100 PRINT AT y,x; INK 3;"<9a>"> 
NEXT n 

110 PRINT AT 21,6;"SCORE “;s;RT 
21,12; "LIVES >»";AT 21,23; "HI 
";hs 

115 PRINT AT 21,18+1;" " 

120 LET x=0- LET y=0 
130 IF SCREENS <y,x>="" THEN G 
0 TO 200 

150 PRINT AT y,x;">" 

155 GO SUB 40Q 

160 IF INKEY$="7" THEN LET y=y 
+<y<20>’ LET 7=1- GO TO 190 
178 IF INKEY*-"i“ THEN LET y=y 
-< y>0>- LET 7=0= GO TO ISO 
180 LET x-x+1- IF x=32 THEN LE 
T x=l' PRINT AT y,31;" "- GO TO 
130 

185 LET 7=2 

190 PRINT AT y+< 7=0 >-< 7=1 ), x-< 7 
=2>;" "« GO TO 130 
200 IF ATTR <y,x >-48 THEN GO T 
0 150 

205 IF ATTR <V,xX>50 THEN GO 
TO 210 

206 LET s-s+10- IF a/1000-INT < 
s/1080> THEN GO TO 300 

207 PRINT AT 21,6; S’ BEEP .01,2 
0 ! GO TO 150 

210 PRINT FLASH 1;AT y,x;"<9a) 
FLASH 0' PRINT AT 2l,l7+l;" " 
» LET 1=1-1- IF 1=0 THEN GO TO 


248 

220 BEEP .01,0- GO TO 120 
240 IF hs<s THEN LET hi=s 
250 PRINT AT 21,26;hs 
260 PRINT AT 11,8; FLASH l; INK 
3; "Another Go ? <yxr»>" 

270 IF lNKEYS="y" THEN GO TO 4 
5 

275 IF INKEYS-"n" THEN STOP 
280 GO TO 270 

300 RESTORE 328• FOR n=l TO 16' 
READ a' BEEP .l,a= NEXT n 
310 CLS ' GO TO 50 
320 DATA 0,12,2,10,3,8,4,7,7,4, 


8,3,18,2,12,0 

490 IF my<20 THEN PRINT AT my + 
l,mx;" " 

401 IF SCREENS <my, mx>=">" THEN 
GO TO 210 

405 IF SCREENS <mv,mx>«"" THEN 

LET mx=RND*20+6 1 BEEP .01,40- L 
ET my =20• RETURN 

410 PRINT AT my , mx; INK 4 
LET nry-mv—l 

420 IF my=0 THEN PRINT AT my+1 
,mx;" LET mx=»RND*20+6 - LET my 
=20: RETURN 

420 RETURN 
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EVERAL SKIING 


programs 
have been included in Sinclair 
Programs previously but Slalom 
is faster than any of them and includes a 
variety of ski runs and difficulty levels. 
A course is displayed, including five 
gates. Reach the bottom as quickly as 
possible, bearing in mind that failing to 
go through a gate will incur a time 
penalty. 

Move left with 5 and right with 8. 
Those keys allow you to travel down¬ 
wards at any of seven angles and skill is 
needed to move in the proper direction. 

Written for the 16K Spectrum by 
Neil Slater of High Wycombe, Buck¬ 
inghamshire. 

5 INK o- paper ? border 


40 DATA y>2wl .■ 33,6, 125,33,0,08 
, 1,255,2,221,126,0/118,17,1.60,2 

37 . 176.201 

50 FOR 1-22631 TO 32053 
60 READ x POKE l,x 
70'NEXT l 

*0 DATA 1.33,31,125,102,46,0,1 
7,8,0,228,213,265,181,3,208.22b, 

175.237.82.40.244.201 

83 FOR J>1 TO 21' PRINT " <2 

*1SP'193> <193 

•2*isP> "• NEXT 1 

85 PRINT RT 9,9;"<14*isP>";RT 
11, 9 ) “<14*isP >" 

86 PRINT RT 10,10;"PRESS R KEY 


110 RANDOMIZE USR 32001’ RANDOM 
I2E USR 32032 

115 IF INKEY90"" THEN 00 Tu 10 


120 NEXT I 

130 FOR 1^63 TO 56 STEP 
E 32000,1 

140 RANDOMIZE USR 32801 
IZt USR 320:32 
145 IF INKEY*< 


RANDOM 


THEN 00 TO 18 


150 NEXT I 
160 GO TO 10O 
180 POKE 32631,1 
190 INK 0’ PRPER 0 ! BORDER O’ C 
LS 

200 INPUT "COURSE NUMBER' M ;R’ R 
ANDOMIZE R 

210 INPUT "DIFFICULTY-";DF 
215 IF DF<2 THEN 00 TO 2!Q 
220 INPUT "CONTROLS ARE 5-LEFT, 
8-RIGHT PRESS ENTER. 

LINE R* 

230 DIM F<5 • ’ FOR I-l TO 5 
240 LET F<I>»1NT <RND*236>+4 1 

F 1-1 THEN LET X-100' 00 TO 260 
250 LET X-F<1-1> 

260 IF RBS <F< I >-X>M>F*5 THEN 0 
0 TO 240 
270 NEXT I 

280 DIM fl< 7 > : DIM B<7*>- FOR 1 = 1 
TO 7’ READ fl<I>,BCI>■ NEXT I 
290 DATA -6,-l,-4,-1,-2,-2,0,-3 
,2,-2.4,-1,6,-1 

300 LET T-0’ LET X-110' LET Y=1 
75 

310 LET D-4 
320 FOR 1-1 TO 5 
330 PLOT F<1>,175-1*20’ DRAW 0, 
8' DRAW -3,-2’ DRAW 3,-1 PLOT F 
<I>+16,175-1*36 DRAW 0,8 tfiAU 
-3,-2' DRAW 3,-1 
340 NEXT I 
350 PLOT X,Y 

360 PRINT AT 0.ft;"TIME-0" 


1520 IF X>-F<Q> AND X<-F<QHl6 T 
HEN POKE 32031,2- RANDOMI2E USR 
32032- RETURN 

1530 BEEP .2,-3’ BEEP .3,-5' LET 
T-T+30- RETURN 

2000 FOR G-l TO 20 FOR 1-8 TO 5 
6 STEP 8- POKE 32000,1' RANDOM12 
E USR 32001• NEXT I• NEXT G 
2010 PRINT AT 0, 17.i rt TIME-";T;" U 
NITS" 

2028 INPUT "SAME COURSE ? "i LIN 
E A* LET flS-CHR* CODE AS- IF A* 
- M Y" THEN RESTORE 200' PAPER 0 
BORDER Q CL3 ' RANDOMIZE R' CO 
TO 220 

2030 POKE 32031,6- RANDOMIZE USR 
32032' RUN 


370 LET N-145 : POKE 32000,56 R 
ANDOMIZE USR 32001 BEEP .5,2© 
380 PAPER 7 BORDER 7 
1000 LET D-D-K INKEY*’*“8" AND £X.7 
>-<INKEY*-"5" AND D>1> 

1010 IF X+fKD»255 OR X+fKDXl T 
HEN LET D-4 

1620 IF Y+B' DX=N THEN CO SUB 15 
00 

1030 LET T-T+l- PRINT AT 0,b;l 
1040 DRAW R<D>,B<D> 1 LET X-X+A<D 
>• LET Y—Y+B< D > 

1050 GO TO 1000 

1500 LET N-N-30 1 IF N—30 THEN G 
0 TO 2000 

1505 LET Q-< 175-NV30-1 
1510 IF N<0 THEN LET N-0 


58 
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Complete your computer 

KELWOOD SOUND POWER BASE 

has all the ‘basic bits’ that Sinclair left off. 

• Fully adjustable sound amplification \ \ t ^ / / / 

• ON-OFF re-set switch , \ Mil )V )v / 

• LOAD/SAVE switch UJ \ f H /r/* 

• Angled stand ■vJ/T/ * [JJ J / //■/ / 


9 Does not take up any extra space 

• AJI wires included 9 Saves wear 

and tear on connections 9 Gives ^ 

distinct click with each key ^ ^ 

depression 9 Amplifies ^ 

all sound on program s&r 

and on cassette ® 

9 Does not need L x ^ 

batteries XN. n^ n 

• Does not interfere , ^ 

with inside of 0 < 

Spectrum or any other \\ % 

add-ons 9 No soldering « 

required, simply plugs in A \ 

REF SPBI £19.90 

Standard Power Base without sound . 

SPECTRUM REF PBSI £13.50 ^ ^ 

ZX81 REF PBZXI £13.00 

For the above with cool-it units included please add £5.05 


assssr 

Re f WSZX C975_ 


Desk top model 
RetCWI £49.00 
' Legs Ret LCW £11.00 


CREDn CARD 
HOTUNETEL: 

(0709)63242 

8am-10 pm Items underdo plus 60p 

Items over d0 plus 95p P 

_ _ Workstations plus £3 P&P 

KELWOOD COMPUTER CASES Downs Row, Moorgate, Rothertiam 


Name 


OUANTITV 


AMOUNT 


TOTAL 


f AJI prices 
include VAT 






fK*» : ► 11 | ili'l 7 i 1 ■ ’ • • r>‘ a - ► 

[l.f 1 }yt.l |l 1 » 




I': ► "^11 :.Il ^ ’ 

• : ► IV ► *.ir . I . 
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Muummmuummuuumummmuummmmmumumummumwm | 

To Sinclair Programs ECC Publications, 196-200 Balls Pond Road, Islington, 

^ London N1 4AQ 

Name. JT 

Address. 

I enclose cheque for £_for_copies of The Best of Sinclair Programs ’84.^r 

Make cheques payable to ECC Publications. 

Please charge my credit card: Card name_ f 

Number_ Jr 




cascade 


THE 

FABULOUS 


-. - y.' It is impossible to 
• ' * tell you everything 

about the 50 games on 
CASSETTE 50 but they include 
many types such as maze, arcade 
missile, tactical and logic games, 
to suit most tastes in computer 
game playing. 

CASSETTE - 50 will appeal to 
people of all ages and the games 
will provide many hours of 
entertainment for ail the family at 
a fraction of the cost of other 
computer games. •. 


EXPRESS DELIVERY 
ORDER NOW 


VALUE that's 
out of this world 


50 GAMES ON ONE CASSETTE 

DRAGON 003 ab Spectrum ' popple ATARI ORIC-1 ZXBI . VIC'S!) 


Please send me by return of post. Cassette 50 at £9.95 
per tape. I enclose a cheque postal order for 

I ~r made payable to 

Cascade Games Ltd. 


Name- 

Address _ 


- Post Code_ 

Country _ 

I Dealers & Stockists enquiries welcome. 


SPECTRUM F 

ORIC 1 

] 2X81 r 

1 V| C 20 [ 

BBC AS [I 

DRAGON [ 

J ATARI L 

J flPPlE L 


Cascade Games Ltd- 
Suite 4. 1 - 3 Haywra Crescent. Harrogate. 
North Yorkshire. HG1 5BG. England. 
Telephone: (0423) 504526. 


CO A Q A I 


10 
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Y OUR AIM is to succeed in 

pleting the fifth level of Quasi¬ 
modo and thus to reach Esmer- 
elda. On the first three levels you must 
jump the barrels and the holes to ring 
the bell. On the fourth level, swing 
down the rope, jump the barrels and 
ring the bell. On the fifth level jump the 
barrels and climb the ropes until you 
meet Esmerelda. The faster you com¬ 
plete each level the more points you will 
score. 

Written for the 16K Spectrum by Ian 
Maddock of Stockport, Cheshire. 
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b go sub 9000 

6 LET hs=0 
10 GO SUB 5000 

20 IF 1-1 THEN GO TO l«0O 

21 IF 1“2 THEN GO TO 2000 

22 IF 1=3 THEN GO TO 3000 

23 IF 1=4 THEN GO TO 4000 

24 IF l“5 THEN GO TO 4500 
1O00 BORDER 5- PURER 5- INK 0- C 
LS • PRINT NT l,29;a*;AT 2,29;b* 
• NT 3,29;c® 

1010 PLOT 243/156■ DRAW 0.-44 
1015 FOP z-9 TO 11* PRINT FIT z,0 
; INK 4; "< 4* l *P • sP •5*lsP • *P • 5*is 
P -sP -btisP sP OTisP sP ’3*isP >" * 
NEXT - 

1020 FOR z=11 TO 21- PRINT AT z, 
O; INK 4; "<32*lsP >" ' NEXT z 
1030 PRINT AT a,b;"f" 

1040 PRINT AT 0,0; ,7 5CORH -i»c 
105O PRINT AT 0.12; M HI-SCORE ";h 
s 

1052 PRINT AT 21,0; PAPER 4;"LIV 
ES "; l iv<?f 

1053 PRINT AT 4,0;"LEVEL ";l 
1.355 BEEP .1/10 

1W60 FOR c-30 TO 0 STEP -1 
1061 LET bo-bo-10- PRINT AT 2,0/ 
"BONUS "Jbo 

1063 PRINT AT 0,6;SC 

1064 PRINT AT a,b+l;" " 

1065 PRINT AT a,b; "_f" 

1070 PRINT AT 3/C; INK 3; "9" 

1071 IF b>*30 THEN GO TO 9550 

1072 PRINT AT 8,0;" "’ PRINT AT 
7,0; INK 5; PAPER 5;" 

100O LET b=b+< 1NKEYS*"P" AND b<3 
0>-<INKEY*-"l" AND b>l) 

1090 IF INKEY®-'" 1" THEN LET *=7- 
LET b«b+2’ PRINT AT a,bAT 
o + l,b-2;. LET 3=8’ PRINT AT 3 

1095 IF c=b-2 THEN BEEP .05,20- 
LET sc«sc+10 

1100 PRINT AT a, b-1; M "• PRINT A 
T 8/C+l;" " 

1101 PRINT AT a-l,h;" " 


1105 

ft If 

IF 

3=7 

THEN PRINT AT 3+1 

, b; 

1109 

IF 

1=3 

THEN GO SUB 6900 


1110 

IF 

b=c 

THEN GO SUB I960 


1111 

IF 

b=4 

AND a-e THEN GO TO 7 

200 

1112 

IF 

3=6 

AND b=10 THEN GO 

TO 

7200 

1113 

IF 

3-8 

AND b=16 THEN CO 

TO 

7200 

1114 

IF 

3=6 

AND h=22 THEN GO 

TO 

7200 


4120 IF ATTR <a,b>=43 THEN GO TO 
7009 

4130 IF b-9 THEN LET *-13« LET b 
-b+1- PLOT 76,156- DRAW 0,-80- P 
RINT AT 8,B;" " 

4140 IF b-25 THEN LET 3 * 8 * LET b 
-b+1 PRINT AT 3,b;"f";AT 13,24; 
" "« PLOT 203,156-"DfcAW 0,-88 

4150 IF b>=20 THEN PRINT AT a,b- 
1;" ";AT a.b;*^- GO TO 9950 
4155 PLOT 203,156- DRAW 0,-68 
4160 NEXT c- PRINT AT 13,9;" "• 
GO TO 4069 

4500 CLS - FOR 9-4 TO 20 STEP 4- 
PRINT AT 9,0;"££££££££££f££££tfc 
£££££££££££££££"; OVER 1;AT 9,0; 


OVER 0 NEXT 9 
4510 PLOT 243,24 DRAW O,16 
4520 PLOT 12,56- DRAW 0,16 
4530 PLOT 243,88- DRAW 0,16 
4540 PLOT 12,128- DRAW O,16 
4550 PLOT 234,144- DRAW 0,20‘ DR 
RW 20,9 DRAW 0.-20- DRAW -20,0 
4560 PRINT RT 2,30; 

4565 LET 3.-19- LET b~l 
457G BEEP .1,10 FOR c-30 TO 0 S 
TEP -1- PRINT AT 0,0;"SCORE ";sc 
/AT O, 12; "HI-SCORE ";hs;AT 8,0;" 
LEVEL "; 1; AT 2,12; "LIVES Mivej 
4560 PRINT AT 3 ,b; '1£" : AT 3 . b+1;" 
“;AT 3 ,to-i;“ “ 

4583 LET bo=bo-10 PRINT AT 21,O 
;"BONUS ";bo 

4585 PLOT 234,144- DRAW 0,20’ DR 
AW 20,0- DRAW 0,-20- DRAW -28,0 
4598 FOR 9-3 TO 19 STLP 4 PRINT 
AT 9 ,c; INK 3;"9";AT o,c+l;" "; 
AT 9,0;" "• NEXT 9 
4600 LET b=b+< INKEYS«*"P" AND b<3 
0>-< INKEY*=" 1 " AND b.M ) 

4610 IF INKEY*="1" THEN LET a«a- 

I- LET b=b+2' PRINT AT 3+1 ,b-2;" 
";RT 3,b;^£l' FOR s-1 TO 2G- NE 

XT s LET a=a+l• PRINT AT a-l,b; 

" ";AT a,b;'X" 

4620 IF ATTR <a,b>-43 THEN CO TO 
7000 

4630 IF c-b-1 OP c-b-2 THEN BEEP 
.1,20 LET sc'ic*1O PRINT AT O 
,6;sc 

4640 IF 3-19 AND b-30 THEN LET 3 
-15- PRINT AT 19,29;" " 

4650 IF 3=15 AND b-1 THEN LET 3 - 

II- PRINT AT 15,2;" " 

4653 IF 3=11 AND b=30 THEN LET 3 
=7- PRINT AT 11,29;" " 

4656 IF 3=7 AND b-1 THEN LET a-3 
- PRINT AT 7,2;" " 

4659 IF 3=2 AND b=3Q THEN GO TO 


1115 IF 3=8 AND b=2e THEN CO TO 
7280 

1116 IF 1-2 AND 3-8 AND b=? THEN 
GO TQ 7200 

1117 IF 1=2 AND 3=8 AND b=l3 THE 
N GO TO 72O0 

lilQ IF 1*2 AND 3=6 AND b»19 "THE 
N GO TO 7209 

1119 IF 1=2 AND 3-8 AND b-25 THE 
N GO TO 7200 

1120 NEXT c 
1138 GO TO 1655 
1950 RETURN 

I960 IF ATTR <a,b>-43 THEN GO TO 
7000 

1999 RETURN 

2000 PRINT AT 8,0;" 

• PRINT AT 1 
3,29;c*‘ PL 


z 

2030 PRINT AT a.b;^' 

2040 PRINT AT 0,0;"SCORE -;sc 
2050 PRINT AT 0,12;"HI-SGORE ";h 

* 

2052 PRINT AT 21.O; PAPER 4;"LIV 
ES ";lives 

2053 PRINT AT 4,9;"LEVEL ";l 
2055 GO TQ 1055 

3000 PRINT AT 0,0;" 

";AT 1,29;a*; 
AT 2,29; bS;AT 3,29;c*' PLOT 243, 

156 DRAW 0,-44* FOR z=9 TO ID 
PRINT AT z,0; INK 4;"<4*isP sP•2 
*isP *sP -2*isP sP *2*i«P-sP•2*isP 
*P -2*isP -sP-2 *isp *P’ 2*isP sP -2* 
isP*sP*3*isP>"* NEXT z* FOR z=ll 
TO 21- PRINT AT 2,0; INK 4;"<32 
*isP>" • NEXT z 

3010 PRINT AT 0,0;"SCORE ";sc;AT 
0,12;"HI-SCQRE ";hs;AT 4,0;"LEV 
EL “;l; AT 21,0; PAPER 4; "LIVES - 
;lives 

3020 FOR 9=4 TO 30 STEP 3‘ PRINT 
AT 10,9;‘If";AT 9,9;"!"* NEXT 9 
3030 PRINT AT a,b;"f" 

3040 GO TO 1055 

4000 CLS * PRINT AT 1,29; a*;AT 2 
, 29;b®;AT 3,29;c«;AT i,24:a*;AT 
2, 24; b*;AT 3,24;c®- PLOT 243,156 
• DRAW 0,-44- PLOT 203.156 
4005 PRINT AT l,0;a*;AT 2,6;bS;A 
T 3,9;c® 

4010 FOR z-9 TO 14- PRINT AT z,0 
; INK 4;"< 9*isP-17*sP■6*isP >"- N 
EXT z 

4020 FOR 7-14 TO 21- PRINT AT 2 , 
8; INK 4; "<32$1SP>"- NEXT 2 
4930 PLOT 203,156 DRAW 0,-88 
4048 PLUT 76,156- DRAW 6,-88 
4050 PRINT AT 0,0;"SCORE ";cc;AT 
0,12;"HI-SCORE ";hs;AT 4,0;"LEV 
EL ";l; AT 21,0; PAPER 4; "LIVES " 
;l 1 ves 

4060 PRINT AT 3,b;'XT' BEEP .1,1 
0 FOR c=24 TO 9 8TEP -1 
4065 PAPER 4 

4070._ET bo“bo-1 0 PRINT AT 21.1 
2;"BONUS “;bo 
4075 PAPER 5 

4O80 PRINT AT ?,b ; AT 3 , b+1;" 

";AT a,b— 1 ;“ *;AT 13-c+l;" ";nT 
13,c; INK 3;"9“ 

4O90 LET b=b+<INKEYS-"P" AND b<3 
0>-<INKEY®-" 1 " AND b>! 

4100 IF ?-S THEN IF INKEY®="1" T 
HEN LET a-7- LET b=b+2 PRINT AT 
8,b-2;" ";AT a,b;^£"- FOR v~l T 
0 20- NEXT v LET 3-8 - PRINT AT 
7,b;” ";AT 3,b;"f" 

4105 IF a=13 THEN IF INKEYS-"1" 
THEN LET a-12- LET b~b+2- PRINT 
AT 13, b-2;" "; AT a,b;'X“' Fr - ,R 
1 TO 20 NEXT v LET 3=13* PRINT 
AT 12,b;" ";AT a,b;"^' 

4110 IF ATTR <a,b-1>-43 THEN BEE 
P .1,20- LET sc=sc+10- PRINT AT 
0.6;sc 


20 


SINCLAIR PROGRAMS November 1983 





9950 

4660 NEXT c 

4670 CO TO 4570 

5010 BEEP 1.20- BEEP 1.17 

5015 PRINT " '" CAN YOU R1NL T 

HE BELLS" 

5O30 PRINT PNC* SAVE ESMAR 

flLDR?" 

5040 PRINT '' TfiB 3.--P RIGHT"' TAB 
3;"I LEFT"'TRB 3;"1 JUMP"• PAUS 

E 100 

5041 FOR 3=0 TO 704 

5042 POKE 23692,255 PRINT " 

NEXT 9. 

5043 LET .>«»"3bc" • LET b*-" m " 
LET 

5044 LET 1-1- LET 

5045 LET 3C-0- LET 

5046 LET b-1* LET 
5050 RETURN 

6900 IF 3-8 AND b"7 OR 3=0 AND b 
-13 OR 3-8 RNO b-19 OR 3-8 AND b 
-25 THEN CO TO 7200 
6910 RETURN 

7000 IF 105 THEN PRINT RT 9,0;" 
»• LET 3 = 8 ■ LET b=0 LET lives-1 


ives-1• IF lives<1 THEN CO TO 71 
00 

7005 IF 1-5 THEN LET lives-live?, 
-1- IP Uvca'.l THEM WJ TO 7 100 

7010 BEEP .3,-20• BEEP .3,-21- B 
EEP .3,-22’ GO TO 20 
7100 FOR 9-1 TO IS- BEEP .3,-30- 
BEEP .3,-31* BEEP .3,-32- NEXT 
9 CLS 

7105 PRINT RT 1G,7;"YOU SCORED " 
;*c;AT 14,7;"HI-SCORE ";hs;AT 
18,7;"YOU GOT TO LEVEL ";1;RT 2l 
,2;"PRESS RNY KEY TO PLAY RGRIN" 
7110 IF hs<sc THEN LET hs-sc• PR 
INT RT 14,7;"HI-SCORE ";hs 

7120 PAUSE O’ CLS • CO TO 10 
720© PRINT RT 3+2,b; FLASH l;"f" 
;RT 3,b; " "• CO TO 7009 ~ 

9000 CLS • FOR 3-OSR "3“ TO USR 
"9"+7 

9010 READ user DEEP .01,0- POKE 
3 ,user 

9020 NEXT 3 RETURN 

9030 DATA 0,0,0,1,3,7,15,15 

904O DATA 0,24,64+32+16+8+4+2,25 

5,255,255,255,255 

9050 DATA 0,0,0,128,128+64,128+6 

4+32.128+64+32+16,128+64+32+16 

9060 DATA 15,31,62,255,f3,0,0,0 

9070 DATA eiN 11110000.BIN 1111! 

000,BIN 11111100,255,0,0.0,0 

9080 DATR 60,60,24,255,60,eIN 00 

100100,BIN 01000010,0 

9090 DATA 6,60,126,255,255,126,6 

0,0 

9950 PRINT AT 10,5; FLASH 1;"YOU 
HAVE A BONUS OF ";bo FOR 9-1 T 
0 15- BEEP .1,10- BEEP .1,5- HEX 
T 9- LET l-l+l• LET se~sc+bo- LE 
T bo-5000- LET 3-8- LET b=l• LET 
c«0- IF 1=6 THEN CO TO 9960 
9955 CO TO 20 

9960 CLS • PRINT AT 0,6; FLASH 1 
;"YOU SAVED ESMARELDA"• FOR m«0 
TO 10- FOR 3-20 TO 35- BEEP .005 
,3- NEXT 3- NEXT * 

9970 LET 1=5- CO TO 7105 



10 LL1 2=100 

20 FUR L-l TO 10 

30 PR INI '\SP 9f 9h>"; 

40 NEXT B 

50 FOR b=0 To 28 

60 PRINT AT 6,B;" >=" 

70 IF INKEY*<>"" THEN GOTO 110 
0O NEXT B 
90 LET 4=Z-5 
100 GOTO 150 

110 FOR D-5 TO 0 STEP -l 

l>0 PRINT AT D.B+l;AT D.B+1 

. . 4 * •* 

130 NEXT L« 

l4o LET 2=4-2 

150 PRINT AT 6,B;" 

160 FOR B=0 TO 29 
170 PRINT RT 0,B; 

180 IF PEEK <PEEK 16398+256*PEE 
K 16399><>0 THEN GOTO 50 
190 NEXT B 

195 PRINT AT 0,0;"SCORE ";2; 

200 PRINT AT 10, 1;"GAME*0VER PL 
AY AGAIN? PRESS ANY KEY" 

210 PAUSE 40000 
220 CLS 
230 RUN 



SHOOTER 


S HOOT all ihe boxes, without 
missing any or going off the 
screen. If you miss a box, two 
points will be deducted from your score 
and if you go off-screen five points will 
be deducted. The maximum score is 
100 . 

Sharp Shooter was written for the 
IK ZX-81 by Colin Baxter of Crawley, 
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W E HAD a good deal of difficul¬ 
ty selecting a Spectrum piano¬ 
playing routine for the 
magazine. Fourteen-year-old Tim Whit¬ 
taker of Cardiff faced stiff competition, 
most notably from Paul Matthews, 
before winning the nomination with his 
clear and easily-mastered Spectral 
Piano. 

Whittaker has been programming for 
two years, during which time he up¬ 
graded his machine from a ZX-81 to a 


Spectrum. He is a completely self- 
taught programmer as there has, as yet, 
been no opportunity for him to study 
computing at school. He wrote the pro¬ 
gram in one day, basing it on his knowl¬ 
edge of the piano. Once he has mastered 
machine code he hopes to be able to 
develop it further and give his Spec¬ 
trum the full capabilities of an elec¬ 
tronic organ. 

When the program is RUN the 
screen shows a section of keyboard with 


keys which appear to move. Pressing 
the appropriate key causes the notes 
played to be raised or lowered by an 
octave, giving a range stretching from 
bottom C to top B. It is likewise very 
easy to vary the length of the note—any 
key from 1 to 9 will change it instantly. 

All instructions are included in the 
program. Capital letters in quotation 
marks in lines 400 to 500 should be 
entered in graphics mode. (16K Spec¬ 
trum). 


10 

GO SUB 1000 


323 IF INKEY$="3‘ 

THEN LET ten= 

14 

FOR C =14-4- TO 151 


. 3 


15 

FOR n =0 TO 7 


324 IF INKEY $ = " 4-’ 

THEN LET ten = 

15 

REPO 3; POKE USR CHR$ C +n ,S 

. 4 


17 

NEXT n: NEXT C 


325 IF INKEY $ = '*5‘ 

THEN LET len= 

IS 

DPTP 35,15,15,15,15,15, 

7 y £» 

, 5 


19 

DPT ft 24-0.. 24-0,24-0,24.0,240.24- 

326 IF INKEY$="S * 

THEN LET len = 

0,224- , 123 


»t- 


20 

DPT P 15,15,15,15,7,0,0, 

0 

327 IF INKEY$="7' 

THEN LET len = 

21 

DPTP 240,24-0 , 240,240,224,12 

. 7 


e. , 128,12S 


323 IF INKEY$="S* 

THEN LET len = 

22 

DPTP 128,128,328,128,128,25 

. 3 


5,128,128 


329 IF INKEY$ = "9 * 

THEN LET len = 

23 

DPTP 8,0,0,0,0,255,0,0 


. 9 


24- 

DPTP 128,123,255,123,128,12 

340 INK 7; PPPER 

2: PRINT PT O, 

S , 123.- 123 


20; “Length **; ten; ’ 

*• 

25 

DPTP 0,0/255,0,0,0,0,0 


350 PRINT PT 16,9 

> " t PT 17,7)& 

30 

PPPER 2: BORDER O: CLS 


5 ; " C" 


4-0 

rem variables 


400 INK 0: PPPER 

7: IF INKEY$=“ 

4-3 

\ r-T = 


a** THEN PRINT PT 14/3; "EF": BEEP 

4-2 

LET ten=.3 


ten,8+o: PRINT PT 

14,3;"GH" 

4-3 

LET 0=0 


410 IF INKEY* = "V 

THEN PRINT PT 

100 

REM Keyboard 


11/9;"ftB": BEER len,l+D: PRINT 

135 

PPPER 7 


PT 11,9 ;"CD" 


110 

FOR n=& TO 21: FOR *=7 

TO 1 

420 IF INKEY$="S" 

THEN PRINT PT 

4 



14,10;“EF": BEEP 

ten,2+0; PRINT 

120 

PRINT PT P/,n;" " 


PT 14,10;“GH" 


130 

NEXT Iff : NEXT D 


430 IF INKEY$="e" 

THEN PRINT PT 

14-0 

INK 0. PLOT 54,51; DRPU* 111 

11,11;"PB"; BEEP 

len,3+o; PRINT 

,0 



PT 11,11; •'CD- 


150 

FOR n =54 TO 152 STEP 15: PL 

440 IF INKEY$="d" 

THEN PRINT PT 

DT n , 

56: DRPLJ 0,63: NEXT n 


14,12;"EF": BEEP 

ten,4+0: PRINT 

5.64? 

FOR n=9 TO 20 STEP 2 : FOR 3) 

PT U,12;"GH” 


-7 TO 10 

% 

450 IF INKEY$ = "r 

THEN PRINT PT 

170 

IF n=13 THEN NEXT n 


14,14;"EF"; BEEP 

ten,5+0: PRINT 

130 

PRINT PT «,n ;'B": REM 

S S* 

PT 14,14; 


shifted 5 


460 IF INKEY$=" t" 

THEN PRINT PT 

120 

NEXT ®: PRINT PT M ,n; "CD" : 

11,15;“PB": BEEP 

ten, 6+0: PRINT- 

REM ® CD 


PT 11,15;“CD- 


200 

NEXT n 


470 IF INKEY$="g" 

THEN PRINT PT 

300 

REM notes 


14,16;"EF"; BEEP 

ten,7+0; PRINT 

310 

IF INKEYS="i THEN LET 

o = — 1 

PT 14,16;"GH" 


2: LET a$="bOtto*" 


430 IF INKEY$=y" 

THEN PRINT PT 

315- 

IF INaEY$= O” THEN LET 

O =0: 

11,17;"fiB”: BEEP 

ten,S+o: PRINT 

LET 

a$ = "D)i dd l e ’■ 


PT 11,17;"CD" 


320 

IF INKEY $="p " THEN LET 

O =12 

435 IF INKEY$="h" 

THEN PR TNT PT 

: LET 3$=" top" 


14,13,“EF": BEEP 

ten ,9 i-O : PRINT 

321 

IF INKEY$ = "1" THEN LET 

l en = 

PT 14-, 13; "GH" 


- 1 



490 IF INKEY $>="U” 

THEN PRINT PT 

322 

IF INKEY $="2" THEN LET 

l en = 

11,19;"PB": BEEP 

ten,10+0: PRIN 

.2 



T PT 11,19; "CD" 



30 


SINCLAIR PROGRAMS June 1983 




SOO IF INKEY $="j" THEN PRINT R*r 
14- s 20; "EF" : BEEP ten,11+0 PRIi 
T RT U,20; *' GH *' 

600 GO TO 300 

1000 PAPER 2: CIS : PRINT INK 7; 
AT 0.,7; "Speclrat Piano".; OVER l: 

INK 7; RT 0,7;" _" 

1005 LET n $ = "A5DFGHJ" 

1010 LET 1=1: FOR n=7 TO 20 STEP 
2: PRINT PAPER 7; INK 0;RT 10, R 
; n $ < U ; LET 1=1+1; NEXT n 
1020 LET n$s"UETYU" 

1030 LET 1=1: FOR n=8 TO IS STEP 
2: IF n =12 THEN NEXT n 
2 04-0 PRINT PAPER 0; INK 7;RT 8 ,o 
; LET 1=1+1; NEXT n 
1050 PRINT RT 5,0;"USE THESE KEY 
S",* RT 11,7; "f;AT 12,3; "MIDDLE O 


middle C TO B,.to obtain the 
sharps and fiats press any of 
the keys displayed in white on 
black.” 

1110 INPUT "press enter when rea 
dy 2 $ 

1120 PRINT INK 7; AT 14-,®;**S.p at 
so has a function to altertbe oc 
lave you are playing in, and a 
function to change the length 

of a note. 

1 -If at any time durin 
g playing you wish to change 

octaves just press key 0 to get 
the octave starting at hotter/? 
C,key Bto get the middle C oct 
aye and a to get the top G octav 

1 1 30 INPUT "Press enter yhe n rea 
dy 2 $ 

114-0 PRINT INK 7; RT 2,0; "2. -if a 
t any time during playing you mi 
sh to change the duration of the 
notes you are pressing press a 
ny key fro® 1 TO 9.The higher 

the number the longer the not 
e 

1150 FOR n =15 TO 21; PRINT RT n , 
NEXT n: REN 32 

119© INPUT "Have you underst ood ? 
fy✓n) ,, ;z$: IF 2$o ,, y" THEN GO TO 
1000 

1200 RETURN 

9998 PRUSE 0 

9999 PAPER 7; INK 0; BORDER 7; F 
LASH 0: CLS 


1060 PRINT RT 4-,20; “octave keys" 
. PRINT RT 6,22; “B ® 3“ 

1070 PRINT RT 2,2;"Length of not 
e in frclions";AT 3.4;"of a seco 
nd"; rt 4-, i.: " a.@-5 Q -S-S-S,g-B" 
2030 PRINT INK 7; RT U,@;“spectf 
el Piano is a computer versic 

r> of a piano.Once you knowhow it 
works you will soon be trying 
to play your own tunes." 

109O INPUT “When ready press eni 
e r z$ 

1100 PRINT Ot-'ER 1; FLRSH 1; PRPE 
=> 7; RT 12,3;" "; FLRSH 0: 

OVER 0; PRPER 2; INK 7; RT 14-,0. 
"The keyboard is set out like 
that of a real piano.By press in 
gtbe keys R TO U Ion the second 
row up>you will get a note from 
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C ATCH the apples in your basket 
as the windfalls fall from the 
trees. Beware, because Farmer 
Haynes is on the prowl and if he catches 
you he will have your guts for garters. 

Windfall was written for the 16K 
ZX-81 by Nicky Thorpe, aged 14, of 
Ashford, Kent. 


1 REM "RPPLE" 

2 LET Y=13 

3 LET 2-0 

10 PRINT AT 0,10;" <4*i£P> " 

20 PRINT AT 1,10;" <6*isP> " 

'>0 PRINT AT 2,10;‘\8*isp>" 

40 PRINT AT 3,10;" <.6tisP> " 

50 PRINT AT 4,10;" <4*isP> " 

60 PRINT AT 5,10;" <2*isP> 

M 

70 PRINT AT 6,10;" <2*isP> 

M 

80 PRINT AT 7,10;" <2 *l*P> 

•« 

9«3 PRINT AT 0,10;" <2*isP> 

•I 

95 PRINT AT 8,0; "<.32*9^" 

36 PRINT AT 21,0;'X32*isP >" 

110 PRINT AT 4,11;"*" 

120 PRINT AT 4,16;"*" 

130 PRINT AT 3,10;"*" 

140 PRiNT AT 3,17;"*" 

141 PRINT AT 9,0;'*< isP'30*sPis 

p 

142 PRINT "CxsP*30*SP•isP>" 

143 PRINT isP ■ 30*sr • xsP >" 

144 PRINT "(xsP■O0*sP'isP 

145 PRINT isP-20*SP • isP >*' 

146 PRINT "( isP : 30*sP : isP >" 

147 PRINT "<isP-30*sP•isP>" 

148 PRINT "< isP >30*SP• isP >" 

149 PRINT "<i£P'30*sPisP>" 

150 LET X=20 

151 PRiNT "< isP *30*sP ' isP >" 

152 PRINT "<lsP : 30*sP' xsP )" 

153 PRINT "CisP=30*sP•isP>" 

134 LET A-INT <RND*10+e> 

156 LET B=10 

157 PRINT AT B,A;"*";AT B-l,fl;" 

II 

158 LET B=B+1 

170 IF INKEY*-"5" THEN LET Y=Y- 

1 

106 IF 1NKEY*=“8" THEN LET Y*Y+ 


185 IF B=X AND A=Y+i THEN GOTO 
300 

186 IF B=X AND A=Y+2 THEN GOTO 
30ft 

190 IF Y<1 THEN LET Y-Y+l 
192 PRINT AT 19,8;" 

II 

200 IF Y>26 THEN LET Y~Y-l 
205 IF B~2l THEN GOTO 400 
210 PRINT AT X,Y;" (9u>94 > " 
220 GOTO 157 
2O0 LET Z-2+5 

305 PRINT AT 0,0;"SCORE*";2 
310 GOTO 154 
400 CLS 

410 PRINT "YOU DROPPED AN APPLE 

N 


411 PRINT "AND THE FARMER GUI Y 
OU. " 

413 PRiNT 

415 PRINT "YOU SCORED ";2 
420 PRINT 

430 PRINT "DU YOU WISH TO PLAY 
AGAIN ?" 

435 PRINT 

437 PRINT " <Y> OR <N> " 

440 IF INKEY$“"Y" THEN GOTO 500 

450 IF 1NKEY*="N" THEN GOTO 600 

460 IF INKEYSO"" THEN GOTO 440 

470 GOTO 440 

500 CLS 

510 GOTO 1 

600 CLS 

610 PRINT AT 10, 10; "ok 9oodb*e" 
620 STOP 
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-Mi 22 23 30QB3X 



3003 LET QW-RND**RND#*RND 
3005 PRINT AT Y*2,XK2+3;"O" 

3010 LET X-X-KCS-"-" OR CS-"/") 
3020 LET Y-Y-<C*-"I" OR CS-’V") 
3030 PRINT AT Y*2,X*2+3;"(SraPhi 
c fi>" 

3040 IF X=9 AND Y-l THEN GOTO 6E 


3050 GOTO 2E3 

5800 PRINT RT 20,0;"I WIN THIS G 
AME 

5010 GOTO 9999 

6000 PRINT RT 20,0;"YOU WIN THIS 
GAME 

9999 STOP 


A NDREW KEY of Witney, Ox¬ 
fordshire, sent Diagono, this in¬ 
triguing man versus computer 
routine for the 16K ZX-81. In concep¬ 
tion, it is a kind of low-tech version of 
our Program of the Month, requiring 
you to move the graphic A across the 
board from 0 to 0, the loser being the 
player who is forced to play into the top 
right-hand corner. You may move up 
(I), across (-), or diagonally (/), illegal 
moves being rejected. 

As listed, the game is not too difficult 
but it will certainly interest readers 
exploring man/machine interaction. 
Lower-case letters in brackets are graph¬ 
ic instructions. 


100 PRINT "D1RG0N0",, "-" 

1000 FOP N-l TO 9 

1010 PRINT TRB 5;"O-O-O-O-O-Q-O- 

O-O" 

1020 IF N<9 THEN PRINT TRB 5;"I/ 
I/I/I/I/I/I/I/I" 

1030 NEXT N 

1040 PRINT RT 2,21;"<inverse 0)" 
1050 LET Y-9 
1060 LET X*1 

2000 PRINT RT Y.T2, X#2+3; "< 9raPhi 
c R>" 

2010 PRINT RT 20,0;"YOUR MOVE?.. 

.<I,/,-)" 

2020 INPUT MS 

2030 IP MS< >"I" RND MS<>"/" AND 

MS< " THEN GOTO 2020 

2040 IF <<MS*"-" OR M*-"/"> RND 

X-9) OR (CMS-"I" OR MS-"/"> RND 

Y-l) THEN GOTO 2020 

2050 LET NX—X+< MS^"-" OR MS-"/") 

2060 LET NY*Y-(MS* - "I" OR MS-"/") 

2070 PRINT RT Y*2,X*2+3;"0" 

2080 LET X-NX 
2090 LET Y-NY 

2100 PRINT RT Y*2,X#2+3;"< 9rsP hi 
c fl)" 

2110 IF X-9 AND Y=1 THEN GOTO 5E 

3 

2125 LET CS-"0" 

2130 IF X<9 AND Y>1 RND <MS-"-" 
OR MS-"I"> THEN LET CS-"/" 

2140 IF CS-"/" THEN GOTO 3000 
2150 IF <Y<-X AND X<9) OR <Y>X fl 
ND Y-l) THEN LET CS-"-" 

2160 IF CY>X RND Y>1) OR <Y<«X R 
ND X-9) THEN LET CS-"r’ 

3000 PRINT RT 20,0;"I MOVE ";CS, 


SINCLAIR PROGRAMS May 1983 





; AT 19 


1 GOTO 3200 

10 LET R-INT <RND*5)+1 
20 DIM N<5) 

40 LET F-INT <RND*5)+1 
50 FOR L-l TO 5 
60 LET N<L)-F 
70 NEXT L 
00 FOR L-l TO 5 
30 LET N<L)-N<L)+R 
92 LET R-R+R 
34 NEXT L 
3b PRINT AT 0,0; 

100 FOR L-l TO 4 
110 PRINT N<L)J" "J 

129 NEXT L 

130 PRINT "?" 

140 PRINT 

lb0 PRINT "WHRT IS THE NEXT NUM 
BER? PRESS RNY KEY WHEN Y 

OU KNOW" 

165 IF INKEY®< >"" THEN GOTO 170 

16 6 LET TM-TM-1 

167 IF TM<-0 THEN GOTO B000 
160 PRINT RT 0,20;"TIME’";TM;" 

•I 

163 GOTO 165 

170 INPUT I 

172 LET TMS-TMS+TM 

174 LET 3®-" 

II 

175 PRINT RT 0,0;S®;RT 2,0;S®;fl 
T 3,0;S* 

100 IF I-N<5) THEN GOTO 3000 
130 GOTO 8000 
1000 FRST 
1005 LET fl-0 
1010 LET B-31 
1020 LET 021 
1030 FOR L-l TO 14 
1040 FOR F-fl TO B 
1050 PRINT RT C, F; "< i»P )" 

1060 NEXT F 
1070 LET R-fl+1 
1080 LET 8-B-l 
1030 LET OC-1 
2000 NEXT L 
2040 LET TM-TI 
2050 LET TMS-0 
2055 SLOW 

2060 PRINT RT 20,0;" 


2070 PRINT RT 18,16;“ “;RT 13 

,16;" ";RT 20,16;" 

2080 PRINT RT 15,12;" “;flT 16 

,14;" <9h) ";RT 18,10;" 

2090 PRINT RT 15,10;" ";RT 16,10 
";RT 17,10;" ■ 

3000 PRINT RT 14,18;" ";RT 15,18 
;" ";RT 16,18;" ";RT 13,15;" 

";RT 9,15;" " 

3010 LET H®-“<9h>" 

3020 PRINT RT 10,14;"<5*9h>";RT 
11,14; "<5*9h)“ 

3030 PRINT RT 20,15;H*;RT 18,15; 
HS, RT 15, l 1;H»;RT 18,12;HS;H*;RT 
14,1S;H®;RT 12,15;H®;RT 8,15;H* 
3048 PRINT RT 4,15;"<9q 9u;AT 
5,14;“<9t'2*97>9* > M ;RT 6,14;"<95 
> *< 98 >“; RT 7,14;"<95> <2*1SP>" 
3050 PRINT RT 20,3;"<9h> <9h> 

< 9h )" 

3060 LET X-l 9 

3070 LET Y-0 

3000 PRINT RT X+1,Y; 

3090 LET P-PEEK < PEEK 16398+256* 
PEEK 16399 ) 

4000 PRINT RT X, Y+l; 

4010 LET Q-PEEK < PEEK 16398+256* 
PEEK 16399) 

4020 PRINT RT X-l,Y; 

4030 LET U-PEEK C PEEK 16398+256* 
PEEK 16399) 

4040 PRINT RT X,Y-1; 

4050 LET E-PEEK <PEEK 16398+256* 
PEEK 16399) 

6810 IF P-136 OR W-136 OR E-136 

OR G-136 THEN GOTO 8 

6012 IF Q-23 THEN GOTO 3100 

6015 PRINT RT X,Y;"<!*)" 

6016 PRINT RT X,Y;" " 

6020 LET X-X+CINKEY®-"6“ RND P-0 
)-<INKEY®-"7" AND U-0) 

6030 LET Y-Y+<INKEY®«"8" RND 0-0 
)-( INKEYi-’ , 5" AND E-0) 

6040 GOTO 3080 

8000 FOR L-l TO 19 

0010 PRINT RT 20,L;"< 99 >" 

8015 NEXT L 

8018 PRINT RT X,Y;"<i*) M 
8020 PRINT RT 1,0;“SORRY BUT YOU 
ARE TRAPPED" 

8030 PRINT "THERE IS NO ESCRPE . 


8040 PRINT RT 0,0;"LRST NO.-";N< 
5);" NOT "; I 
8050 GOTO 9112 

9000 PRINT RT X+l,Y;" " RND P-13 
6;RT X,Y+l;» " RND Q-136;RT X-l, 
Y;" " AND W-136;RT X,Y-1 j" " AND 
E-136 

9010 GOTO 3080 

9110 PRINT RT 0,10;"**WELL DONE* 
*";RT 2,0;"YOUR SCORE WRS'";TMS 
9120 PRINT RT 3,0;"PRESS RNY KEY 

TO TRY AGAIN " 

9130 IF INKEY®-"" THEN GOTO 9130 

9140 CLS 

9160 GOTO 9500 

9240 PRINT RT 0,1;" ***** INC 

R GOLD*****" 

9250 PRINT TAB 5;"TO GET THE INC 
R GOLD";TAB 5;"YOU MUST REACH TH 
E”;TAB 5;"TOP OF THE INCR TEMPLE 

II 
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9300 PRINT TAB 5;"THE D0GRS<<9h> 
) HAVE LOCKS.";TAB 5;"THEY WILL 
ONLY OPEN IF";TAB 5;"YOU GIVE TH 
E CORRECT";TRB 5;"COMBINATION WH 
EN ASKED," 

9300 PRINT TAB 5;"THE WRONG ONE 
RND YOU";TRB 5;"ARE TRAPPED FORE 
VER. " 

9390 PRINT TAB 5;"USE KEYS CURSO 
R";TAB 5;"KEYS TO MOVE" 

9420 PRINT "*****PRESS ANY KEY T 
0 START*****" 

3430 IF INKEY ®-"" THEN GOTO 9430 
9500 CLS 

9520 PRINT "PLEASE ENTER LEVEL 0 
F DIFFICULTY****50 TO 1000****" 

9522 PRINT 

9523 PRINT "<THE LOWER THE HRRDE 
R THE GRME )" 

9524 INPUT TI 

9526 IF TI>1000 OR TI<50 THEN GO 

TO 9524 

9528 CLS 

9610 GOTO 1000 

3620 SAVE "INC*" 

3630 RUN 
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IplRii 


Y OUR AIM is to reach the gold 
at the top of the Inca Temple. 
Move with cursor keys 5 to 8 
until you reach a door. Each door must 
be opened by the correct combination 
and any error means that you will be 
trapped there for ever. 

Inca Gold was written for the 16K 
ZX-81 by K Royles of Rhyl, Clwyd. 
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1 LEI S*VAL "-30" 

2 LET S-S+VAL "30“ 

3 LET Y-INT '.RNL'*1U> 

4 CLS 

5 PRINT AT J.b#0j N '.ll*9a> N 

6 PRINT AT 14/RND^Y;"<isp >" 

7 PUR X-0 TO VOL "lb" 

0 PRINT m* RNL'*l3,RND*Y; M '91> 
‘ / AT RNDT 13 j RND*Y; CHRS 23 
IV PRINT AT X/Y> 

2(3 LET C“PEEK < PEEK 16398+VAL 
"■256"*PEEK 16339> 

30 IF C=23 UR C=1 UR 0*3 THEN 
LUTU 200 

4U IF C-VAL "120" THEN GOTO 2 
50 PRINT "(. l" > M 

bb LET Y-Y-K INKEY9 C "0" AND Y<1 
0>-<INKEY*="5" AND Y>0> 

6Q LET S=S+VAL "2" 

70 NEXT X 
00 GOTO 4 

200 FOR T=X TO VAL "lb" 

2O0~FUR T-X TO VAL "lb" 

210 PRINT AT 1/Y; "< i";AT T,Y; 
"A" 

220 NEXT T 

230 PRINT AT T-l,Y;"<l">" 

24Q PRINT "< is ic ic ir -le 9b)" 


AND Y<1 


A S DOCTOR WHO you must use 
keys 5 and 8 to steer the tardis on 
■ to the landing pad of the planet 
you are approaching. Avoid the stars 
and planets which appear or their gravi¬ 
tational field will send you crashing 
downwards. If you land safely you will 
gain 30 extra points and move to the 
next sheet. 

Tardis Lander was written for the 
IK ZX-81 by Terry Bishop of Leyton, 
London. 



2 LLT 11*0 

3 LET n-20 

4 LET 2-10 
b GLS 

6 LET T—20—ft 

7 LET X-1NT <RND*9>+1 
10 FOR N-l TO A 

lb PRINT AT A,Z-1 j“'.sP 
20 PRINT AT N,0;"<11*1SP>";AT 
N-i,0;" " i AT N/X>" " 

50 LET 2-Z-K INK£Y*-"8" AND 2<1 
1 >-cINKEY»«"b"> 

60 NEXT N 

70 IF ZOX THEN GOTO 500 
95 LET A—A—1 
100 GOTO 6 
S00 PRINT "SPLAT" 
b02 PAUSE 50 
bOb GLS 

507 IF TM1 THEN PRINT "NAME?" 
500 IF T>M THEN INPUT Ui 

509 IF T>M THEN LET M-T 

510 PRINT "SCORE-";T;" HIGH SC 
URE HELD BY ";U»;" WITH ";Mj" PO 
I NTS" 

520 INPUT CS 
530 GOTO 3 


U SING the cunning of a fox you 
have to weave in and out of the 
descending pack of hounds. As 
you negotiate one pack, you are met by 
another pack. 

_ The highest score appears at the end 
of each game, along with the name of 
the scorer. Use cursor key 5 to move left 
and 8 to move right. Beware, you have 
only one life. 

Foxhunt was written for the IK ZX- 
81 by Adam Evans of East Dereham, 
Norfolk. 

















A nimation was published as 

3D was in our September issue, 
to suggest new ways of using 
Spectrum graphics. Jonathon Healey of 
Winchester, Hampshire has produced a 
man who walks from the right to the left 
of the screen. The movement is smooth 
and resembles that of an animated car¬ 
toon. 

We would be interested in seeing 
programs which develop the technique 
further (16K Spectrum). 


10 

FOR t—0 

TO 11 




FOR r-13 

TO 7 



36 

READ 3 

POKE MSP 

LHR* ' 

244* 

*' >*-n, 

3 




48 

NEXT .v 

NEXT r 



66 

DATA 0,0 

,0,0,0/0/ 

0.0/2 

, 1,0, 

0,0,0,0,3,0,6 

|,0,0/6/ 112, 112 

.32, 1 

26/164/36,96/ 

00,208,ib6,132 


80 

DATA 0,0 

,0/6/1/1/ 

0,0,0 

,0,3, 

1 0,6,6,0/3/0/0 

,0,6,192, 

182/1; 

19 


t, 260,224 

.192,192, 

192,192,19 

— 

100 

DATA O,0 

,0,0,0,28,92,7; 

2,62, 

1 9,9,b6,60,66, 

192,7,0,0,0,0/1 

4,0,0 

. 0 / 0 , 

0,0,0,0 , 

0,0,0 



1 ! 0 

LET 3*-" 

3.cbd" 



120 

LET b*-" 

e9fh" 



130 

LET c*=" 

ik jl" 



140 

FOR 3=36 

TO O STEP -1 


lb0 

FOR f*0 

TO 2 



lbb 

READ 4* 




160 

PRINT A1 

1W/3 J 4*' 

TU 2 

:*iRT 

11,3, 

4*63 TO 

> 



170 

pause e 




3 80 

NEXT r 




190 

RESTORE 

lbb 



195 

NEXT 3 




2O0 

DATA 3*, 

b*,c* 



210 

i.LS • 00 TO 140 






lb BORDER 0 PAPER O' INK 6' I 
LS 

20 FUR 1=1 TO 168 STEP 7.55 
30 PLOT 0,< 168-1 >• DRBW I,-<li 
8-1 > 

40 PLOT 0,1* DRAW 1 ,- 1*168 
bo NEXT I 

60 FOR 1-1.6 TO 4.7 STEP .1 
70 INK 7 PLOT 127,86 DRAW 1 
0*COS I,58*3IN I 
80 NEXT I- INK b 

9990 FOR J-0 TO l?b 1 FOR 1-0 TO 
127 

9991 IF POINT <I,J>-1 THEN PLOT 
2bb-I, J 

8**2 NEXT I- NEXT J 

8893 LET L-22b28> LET 022544 

9994 FOR J-l TO 22 

989b FOR I-lb TO 0 STEP -1 

9896 POKE G*<lb-I),PEEK <L+I> 

9997 NEXT I 

8999 LET L-L+32 1 LET 0-0*32 
9999 NEXT J 


. Colo 

TL- 

u 

rs as w 

. 1 ne 

P 

rogram 

demor 

is 

iration. 








\turs 


T hree-dimensional let¬ 
ters, written for the Spec¬ 
trum by P Monger of Reading, 
Berkshire draws large, three-dimension¬ 
al letters on the screen. Only seven 
letters can be printed at once but the 
routine can be used again several times 
without clearing the screen, allowing 
impressive title pages to be created. 


113 BORDER 7' INK 0- PAPER 7 
30 LET a*«*'3D-WURD" 1 LET P-30 
30 PRINT AT l0,7;"fc 1903 P.Mon 
GO TO 100 

40 PRINT PAPER 1j INK 7;AT 13, 
Q; " Now you can write vou.n own 

3D word* 

50 PRINT '' PAPER 0 > INK 7;" N 
nw Please follow the Prompt*. " 
6* PRINT INK 7; PAPER 2; FLA6W 
1>AT 21,10;"Press any key" 

70 PAUSE 0- CLS 
80 INPUT "Pixels from toP < <1 
»P>*8 Pixel*)";* 

90 INPUT "letter* <7 max) ";a« 
• IF LEN aS>7 OR LEN a*<1 THEN B 
EEP 1,-30’ GO TO 90 
108 LET a-LEN PRINT INK 7>A 

T 21,0;a* 

110 FOR f=9 TO 8*a-l’ FOR n-0 T 

0 7 

126 IF POINT <f,n>*0 THEN GO TO 
160 

13G PLOT f*4,n*4+135-P• DRAW 4, 
O' DRAW 0,4 DRAW -4,0- DRAW 0,- 
3 DRAW 3,0- DRAW 0,2 DRAW -2,0 
- DRAW 0,-1- DRAW 2,0' DRAW -2,- 

140 DRAW 5,5' DRAW 0,4- DRAW 0, 
-4 DRAW 4,0 DRAW 0,4’ DRAW 0,- 
4’ DRAW -5,-5 

150 DRAW 0,4' DRAW 5,5' DRAW -4 
,0' DRAW -5,-5 
160 NEXT n’ NEXT f 
170 IF aS“"2D-W0RD" THEN PAUSE 
50' CO TO 40 

180 INPUT "Write some more ? <y 
/'n ) " ;wS 

190 IF w»*-"n" THEN STOP 
>00 INPUT "Clear the screen * < 
210 IF cS-“y" THEN CLS 
220 GO TO 80 


100 CLEAR 5V90J 
HO LEI CT-C234*256> PRINT AT 
8,10;"POKES LEFT “ 
i20 FUR 1-15616 TO 156l6+<255*3 


130 LET AS-' 


POKE 16384,PEEK 


140 GO SUB 200 

150 PRINI AT 10 , 10 , 1 5616+< 255*8 

-I;" •• 

168 Puke si , val cbin u +n*> 

170 LET ST-ST+1 
180 NEXT \ 

-.30 POKE 23607,233' STOP 
2O0 FOR J~7 TO O STEP -1' IF PO 
INT <J,175>-1 THEN LET AS-A4*"1" 
- GO TO 220 
210 LET AS=AS+”u M 
220 NEXT J- RETURN 
230 POKE 23687,233 


O NCE THIS program is RUN it 
will reverse the entire character 
set, excluding user-defined 
graphics. The new character set can be 
called upon at any time, even after 
NEW has been pressed, by entering 
POKE 2307,233. 

Mirror Characters was written for 
the 48K Spectrum by Graham Walkden 
of Banchory, Kincardineshire. 


MIRROR 



CHARACTERS 
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A BALL bounces around the 
screen and you must trap it 
using as few blocks as possible. 
Pressing any letter will place a block 
behind the ball. Once one ball has been 
trapped another will appear. 

This program was written for the 
16K ZX-81 by Roland Waddilove of 
Widnes, Cheshire. 


SPEED TRAP 


ISO REM instructions 

HO POKE 16418,0 
120 PRINT TAB 18;"SPEED-TRAP",T 
AB 9>"< 12*97 >" 

130 PRINT , THE IDEA OF THE G 
AME IS TO TRAPTHE BALL. PRESSING 
ANY LETTER WILL PLACE A BLOCK 
JUST BEHIND THE BALL." 

140 PRINT , ," THERE ARE 20 BALL 
S ALTOGETHER. USE AS FEU BLOCKS 
RS POSSIBLE." 

150 PRINT AT 21,7;"Press a lett 

or" 

160 IF INKEY*-"" THEN GOTO 160 

170 CLS 

200 PEN START 

210 LET BEST-100 

220 LET BALL-1 

230 LET BLOCKS-0 

240 LET X-l 

250 GOSUB 790 

260 LET P-INT <RND*780>+PEEK IS 
396+256*PEEK 16397 
270 IF PEEK P OR PEEK (P+X> THE 
N GOTO 260 
300 PEN GAME 
310 POKE P.0 

320 IF INKEYSO"" THEN LET BLOC 
KS-BLOCKS+1 


330 IF INKEYSO"" THEN POKE P.8 
340 LET P=P+X 
350 POKE P,23 

360 IF NOT PEEK <P+X> THEN GOTO 
310 

370 IF PND>.5 THEN GOTO 425 
400 PEN CHANGE DIRECTION 
405 LET X-33 

410 IF NOT PEEK <P+X> THEN GOTO 
310 

415 LET X=i 

420 IF NOT PEEK <P+X> THEN GOTO 
310 

425 LET X—33 

430 IF NOT PEEK <P+X> THEN GOTO 
310 

435 LET X—1 

440 IF NOT PEEK <P+X> THEN GOTO 
318 

445 LET X-33 

450 IF NOT PEEK <P+X> THEN GOTO 
310 

455 LET X-l 

460 IF NOT PEEK <P+X> THEN GOTO 
310 

500 REN NEU BALL 
510 LET BALL-BALL+1 
520 PRINT AT 0,8;BLOCKS;AT 0,28 
;< BALL AND 8ALL<21> 


530 IF BALL<-20 THEN GOTO 260 
600 PEN GANE OVER 
610 IF BEST>BLOCKS THEN LET BES 
T-BLOCKS 

620 PRINT AT 23,6;BEST 
630 FOR N-0 TO 100 
640 NEXT N 

650 PRINT AT 23,10;"Press P to 
Play a9ain" 

660 IF INKEY**-"" THEN GOTO 660 
670 IF INKEYS-"P" THEN GOTO 220 
680 CLS * 

690 STOP 
700 REN BORDER 
710 CLS 

720 PRINT " blocks = 
balls 

730 FOR N=1 TO 22 

740 PRINT "<isP)" j TAB 31;"<isP> 

M 

750 NEXT N 

760 PRINT " best- 

•t 

770 PRINT AT 0,8;BLOCKS;AT 0,28 
;BALL;AT 23,6;BEST 
780 RETURN 
808 REN save 
810 SAVE "SPEED-TRAP" 

820 RUN 
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le/IrE 

JWAKEK 


BROWN of Charles- 
Cheshire wrote Lace 
Maker to generate patterns for 
use as design charts for punch-lace or 
Fair Isle work on domestic knitting 
machines. She adds that it would also be 
suitable for those designing filet 
crochet. 

The program first requests the num¬ 
ber of stitches in each pattern repeat — 
6, 8 or 12 for the more popular makes of 
knitting machine — followed by the 
number of rows required. Lace Maker 
can cope with any stitch repeat between 
4 and 16, and any number of rows 
between 4 and 20. (16K ZX-81). 


t RAND 

7 GOSUB 9900 

10 LET C*~"HOW MANY ARE REQUIR 
ED IN ONE REPEAT OF THE PATTERN 
? TYPE A NUMBER BETWEEN AND < 
INCLUSIVE> THEN PRESS NEWLINE." 
20 LET RS=" rows " 

30 LET SS="stitches" 

40 DIM D*<20,16> 

50 DIM AS<16> 

70 LET E-0 

90 PRINT AT 0,0;C*<1 TO 9>;SS; 
C*<9 TO 77 >; 4; CSC 77 TO 81>;16;CS 
<81 TO 113) 

100 INPUT N 
110 PRINT N 

115 IF N>16 OR N<4 THEN GOTO 48 

0 

120 PRINT AT 8,0;C*<1 TO 9>;R*J 
C®< 9 TO 77 ); 4; CS< 77 TO 81>;20;C* 
<81 TO 113) 

140 PRINT D 

150 IF D>20 OP D<4 THEN GOTO 42 

0 

200 LET H-DX2 

210 LET 2-INT <32/N)*N-N 

228 LET Y-INT <22^<D+l>>*<D+l ) 


230 

LET G-N/2 



240 

IF G>INT G THEN LET G=G+1 

250 

CLS 



255 

LET L-0 



260 

IF L>*Y THEN GOTO 

1000 


270 

FOR E-l TO INT H 



280 

GOSUB 1500 



290 

LET D*< E >*AS 



295 

NEXT E 



300 

IF H>INT H THEN GOSUB 1500 

310 

FOR F-E-l TO 1 STEP -1 


320 

FOR C-0 TO Z STEP 

N 


330 

PRINT AT L,C;D*<F 

, 1 TO 

N> 

340 

NEXT C 



350 

LET L-L+l 



360 

NEXT F 



370 

LET L-L+l 



380 

GOTO 260 



400 

ASE” 

PRINT "BETWEEN 4 

AND 16 

PLE 

410 

GOTO 100 



420 

ASE" 

PRINT -BETWEEN 4 

RND 20 

PLE 

430 

GOTO 130 



1000 

PRINT AT 21,0;"C 

TO CONTINU 

E, N 

FOR NEW SIZE" 



1010 

IF INKEY*-"" THEN 

GOTO 

1010 


1020 IF INKEY*-"C" THEN GOTO 250 

1030 CLS 

1040 GOTO 10 

1508 FOR B-l TO G 

1510 LET A-INT <RND*2> 

1520 IF A-l THEN LET AS<B>»" " 

1530 IF A=0 THEN LET AS<B>*"*" 

1540 NEXT B 

1550 FOR B»B TO N 

1560 LET AS<B>A*<N+1-B> 

1570 NEXT B 

1580 FOR C*0 TO 2 STEP N 
1598 PRINT AT L,C;A*<1 TO N> 

1600 NEXT C 
1610 LET L-L+l 
1620 PETURN 
9000 CLS 
9015 PRINT 

9030 PRINT AT 20,4PRESS ANY KE 
Y TO START" 

9040 IF INKEY**"" THEN GOTO 9040 
9045 CLS 
9050 RETURN 

9990 SAVE "LACEMAKEr" 

9991 RUN 
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10 GO SUB 9000 * GO TO 10UG 

20 DEF FN 9< :*=INT <<PEEK 23672 
+256*PEEK 23673+65536*T'EEK 23674 
V50 > 

36 LET ss^8 : LET c*-* "Nobody " 

4© PAPER 6 * INK 1* BORDER 1• C 
LS 

50 LET t-fcP LET s=0* LET a-10* 
LET b fe 10• LET f*-""* LET 2 ^1■ L 
ET rn=5* LET a*^"8"* LET h*~:a* * D 
IM x< 35 >* DIM y<35 >* GO TO 170 

68 LET f-INT <RND#9 >+1 : LET d" 
INT < RNDY16 >+3• LET c-INT < RNDY2 
7 >+2 

7G IF SCREENS (d-eX)" " THEN 
GO TO 60 

BO IF SCREEN* <d,e+2><>" " THE 
N GO tO 6G 

9G IF SCREEN* (d+Le+DO" " T 
HEN GO TO 60 

1G0 IF SCREEN* < d+2, e >< >" " THE 
N GO TO 6G 

110 IF SCREEN* <d+2,e+2><>" " T 
HEN GO TO 6G 

120 PRINT AT d»c-; INK RND*4; 

; AT d+1,c; INK RND*4; ; f; 'W 
i AT d+2,e; INK RND*4; 'W • RETU¬ 
RN 

160 PRINT AT d, e; M ";AT d+l,e 

" ; AT d+2,e;" " * RETURN 

170 PRINT AT 0,13; FLASH 1;"SNA 
KE"; FLASH 0 

ISO PRINT AT 2,0; " aaaaa.g.aa-aaaaa 
a a ■?. a a a a a a a a 3. a a a a a a a ” 

190 FOR TV= 3 TO 20- PRINT AT r.,8 
; INK RND*3;"a";AT n,31;"a"• NEX 
T n 

200 PRINT AT 21,0;" aaaaaaaaaaza 
a a •?. a a a a a a a a a a a a a a a a a " 

210 PRINT AT 1,1; INK O;"SCORE : 
";AT 1,11; INK 1;"TIME•";AT 1,20 
; INK 2;ss;" BY ";c$; 

220 POKE 23674,255- POKE 23673, 
255• POKE-23672,255* GO SUB 60 * 
GO TO 280 

240 LET z=z+l * IF z-rn THEN PR IN 
T AT x<z>,y<z>;" " * LET z-1 * LET 
m=m+<1 AND m<35> 

250 LET t“FN 90' PRINT AT 1,16 
;t ! IF t>~180 THEN GO TO 600 
260 BEEP .001,40 
270 PRINT AT a,b; INK RN0*4; "SI 
■ LET b*=a* : PRINT AT x<z>,y<z>; 

a ii 

2B0 IF INKEY*""" THEN LET b$-a$ 
290 LET a*"INKEY* ? IF a*<>"8" A 
ND a*< >"7" AND a*<>"6" AND a*<> M 
5" THEN LET a*=b* 

300 IF a*""5" THEN LET h-b-1* L 
ET c-2 

31© IF a*""6" THEN LET a-a+1 L 
ET c-3 




320 IF a*="7" THEN LET a^a-1 : L 
ET c" 1 

330 IF a$"“8" THEN LET b~b-M * L 
ET c=0 

340 LET x( z )r. 3 ■ LET y<z>«b 
350 IF SCREEN* <a,b>*W THEN G 
O TO 400 

360 IF SCREEN* <a,b><>" " THEN 
GO TO 700 

37G IF RND>.98 THEN GO SUB 16G* 
GO SUB 60 

380 PRINT AT a,b;CHR* <145+c > 
390 GO TO 240 

410 PRINT AT a,b;CHR* <145+c> 
426 LET s-s-1* INK 1 * FOR rv-f T 
0 O STEP '-1 * LET sr-s+i.- BEEP .GO 
8, ri+30 ? PRINT AT l,7;s j PRINT AT 
d+l,e+!;•«-.* NEXT r« 

440 .GO SUB 160 : PRINT AT a,b;CH 
R* < 145+c > * FOR ri"0 TO 20* NEXT 
n* GO SUB 60* GO TO-240 
608 FOR Vi"60 TO 30 STEP -1 * BEE 
P . 1, n ■ NEXT n 

605 PRINT AT 2,0; FLASH 1; INK 
2;"GAME OVER" 

610 IF s >ss THEN PRINT AT 3,0; 
FLASH 1;"NEW HIGH SCORE"» LET ss 
"S * GO TO 630 
620 GO TO 650 

6-38 INPUT M I«Put your name";c** 
IF LEN c*>7 THEN GO TO 630 
650 INPUT "ANOTHER GO ?";d$- IF 
d*”"Y" OR d*~"y" THEN GO TO 40 
660 STOP 
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V ARIOUS NUMBERS appear on over your tail or hit the edges of the Snake was written for the 16K Spec- 
the screen. Running over a num- playing area. trum by John Williamson of Moreton 

ber will add it to your score. Your As the game progresses your snake Morrell, Warwickshire, 
brightly-coloured snake is controlled becomes longer, making your path more 
with the usual cursor keys. Do not run circuitous. 


700 PRINT RT a,b;CHR$ <145+c> 
710 FOR n=36 TO 1 STEP -1= BEEP 
. t, n * NEXT -n • GO TO 650 
1000 BRIGHT 1- PAPER 6* INK 2 : B 
ORDER 6 ; CLS 

1320 PRINT RT 2,12; BRIGHT 1; FL 
ASH 1;"SNAKE";AT 3,12;" ■■ 

1040 PRINT AT "INSTRUCTIONS" 

; AT OVER 1; "_" 

1363 PRINT """ in this Same ca 


1 led •‘■'SNAKE'" 
e the numbered 
■=e your score 
f Points 
e boxes." 

1070 PRINT 

OU. control 

c-y s 5,6,7, 8 


, , ii 


you. have to bit 
boxes to lncrea 
by the amount a 
d l sP l ay ed i n th 

The Snake which y 
with the cursor k 
w 1 11 s1owly 9row 
lon9er." 

a key "* PA 


longer and 

1390 PRINT £0;"Press 
USE fi¬ 
ll 00 LET e»26* LET d=^7‘ LET f-9* 
GO SUB 76 

1110 LET J_ 

fffffffb"- FOR n-24 TO 0 STEP -1 


• BEEP .001,40' PRINT AT 8,0;x$C 
n+1 TO 27>• PAUSE 4’ NEXT n 


1136 FOR n-f TO 0 STEP -1 * BEEP 
.0O8,n+30• PRINT AT d+1,e+ljn* N 
EXT r, 

1140 PAUSE 100 

1150 FOR n“7 TO 21 * PRINT AT r.,0 

. M 

"* NEXT r. 

1160 PRINT AT 7,0;" There is a t 
ime limit m this Same, 3 minu 
tes displayed on the screen i 
n seconds, within this time yo 
u. have to 9et as larQer score 
as Possible, a hi9h score w 

ith be recorded." 

1170 PRINT "" If you. bite your¬ 
self or the fence then the 9a 
me will end." 

1230 PAUSE 0- GO TO 36 
8999 STOP 

9600 RESTORE • FOR n*144 TO 149* 
FOR f=0 TO 7 : READ a- POKE JJSR 
CHR$ <n>+f,a* NEXT f* NEXT rr RE 
TURN 

9150 DATA 8,16,8,186,93,16,0,16, 
192,156 -130,129,129,130,156,192, 
24,36,66,66,66,0,129,255, 3 ,57,65 
,129,129,65,57,2,255,129,0, 66 ,66 
, 66 , 36,24,24,36,90,189,189,90,36 
,24 
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5 GO SUB 9600 

10 BORDER 5- BRIGHT l- PAPER S 
CLS 

20 DIM fc* 10,4) 

30 LET *-•>• LET sc-0 

90 PRINT AT 1,9;"Clobber Ca»tl 

100 PRINT AT 4,31;"" 

110 FOR f-1 TO 17*32 

120 PRINT PAPER 6; INK 2;"b"; 

130 NEXT f 

140 GO SUB 7000 

200 FOR f-1 TO 10 

210 GO SUB 8000 

215 FOR h-1 TO 5 

220 PRINT AT 4,*;" f " 

230 LET *-*+< INKEY»-"P" AND *<2 
9)-<INKEY*-"4" AND *>0) 

240 IF INKEY*-"f" THEN GO SUB 
1000 

430 NEXT h 
500 NEXT f 
550 GO TO 200 
1000 PRINT AT 4, a+1 ;" " 

1005 LET bh-0 

1010 FOR n-5 TO 20 

1020 IF ATTR <n.A+l>-112 THEN L 

ET bh-1 

1023 PRINT PAPER 6;AT T,*+l;1f" 

1026 BEEP .025,0-n 

1027 PRINT PAPER 6; INK 2;AT n, 
*•*•1; "b" 

1030 IF bh-1 THEN GO TO 1300 
1050 NEXT o 
1060 

1070 RETURN 

1500 LET sc-»c+10 

1560 FOR J-l TO 10 

1570 IF b<j,2)-*+l THEN GO TO 1 

590 

1580 NEXT j 

1590 LET b<j,l>-16 

1595 LET b<j,2)-INT <RND*29>+1 

1600 LET b< j,3)»b< j,3)+l 

1610 PRINT AT 0,0;"Score-";sc 

1620 PRINT PAPER 6; INK 3;AT b< 

J, 1 ),b< J,2);CHR* b< j,4> 

1630 RETURN 

7000 FOR f-1 TO 10 

7010 LET b<f,2)-INT <RND*29)+i 

7020 LET b< f, 1 )«18 1 LET b<f,3)-l 

7021 LET b< f, 4 )-147+INT <RN0*2> 
7025 PRINT PAPER 6; INK 0;AT bC 
f, 1 >,b<f ,2>;CHR* b<f,4> 

7030 NEXT f 
7040 RETURN 

8000 PRINT PAPER 6; INK 2;AT b< 
f, 1 ), b< f, 2 ); 

0005 BEEP .025,-30 

8010 LET b< f, 1 )-b< f, 1 )-b< f, 3 ) 

8015 IF bC f, 1 X-4 THEN GO TO 90 
00 

8016 IF b<f,4)-147 THEN LET b<f 
,4>-148’ GO TO 8020 

8017 IF b< f,4 >-148 THEN LET b<f 
,4>-147 


9640 FOR f-0 TO ?• READ s POKE 
USR "e“+f,s= NEXT f 
9650 DATA 0,26,26,60*Be,80,36,36 
9660 FOR f-0 TO 7> READ s- POKE 
USR "f"+f,ft. NEXT f 
9678 DATA 60,126,255,255,255,255 
,126,60 
9680 RETURN 


e020 PRINT PAPER 6; INK 0;AT b< 
f, l ),b< f, 2 ); CHR* b<f,4> 
e040 RETURN 

9000 PRINT FLASH 1;AT 4,b<f,2>; 

M d“ 

9010 PRINT FLASH 1;AT 10,7;"TOU 
GH LUCK" 

9020 BEEP .05,INT <RND*30)> BORD 
ER INT < RND*8) 1 IF INKEY #—"" THE 
N GO TO 9020 
9023 PAUSE 100 
9030 GO TO 10 

9600 FOR f-0 TO 7- READ *■ POKE 

USR "b"+f,s• NEXT f 

9610 DATA 255,16,16,16,255,1,1,1 

9620 FOR f-0 TO ?• READ s* POKE 

USR "d"+f,s■ NEXT f 

9630 DATA 0,88,88,60,26,26,36,36 


Y OU STAND on the battlements 
of your castle, which is being 
assailed by commando-style ro¬ 
bots. If a robot reaches the battlement 
you will be killed, so delay them by 
dropping cannonballs on to their heads. 
Move left with Q, right with P and drop 
a cannonball with F. 

Clobber Castle was written for the 
16K or 48K Spectrum by R Flavell- 
While of Melton Mowbray, Leicester¬ 
shire. 


SINCLAIR PROGRAMS December 1983 


31 







D ENBAR is an obnoxious fly 
which jumps from segment to 
segment of your cake. Move 
your red fly-swatter to hit Denbar, 
moving it left with 5 and right with 8. 
Denbar cannot be killed but you score 
points each time you hit it. 

Written for the 16K Spectrum by 
Simon Licence of Canvcy Island, Essex. 


DENBAR 


5 GO SUB 9500 
10 GO TO 9000 

20 PLOT 40,72- DRRM 80,16- DRfl 
U -64,-64’ DRRW -16,48 
25 RETURN 

30 PLOT 40,72- DRAW 80,16- DRfl 
U -80,16' DRAM 0,-32 
35 RETURN 

40 PLOT 48,104' DRAM 80,-16' D 
RflM -64,64' DRAM -16,-48 
45 RETURN 

50 PLOT 64,152' DRAW 64,-64- D 
RAM -16,80' DRAM -40,-16 
55 RETURN 

60 PLOT 112,168- DRAM 16,-80' 
DRAM 16,80- DRAM -32,0 
65 RETURN 

70 PLOT 144,160- DRAM 48,-16' 
DRAM -64,-64' DRAM 16,80 
75 RETURN 

80 PLOT 192,152- DRAM -64,-64- 
DRAM 80,16' DRAM -16,48 
05 RETURN 

90 PLOT 200,104- DRAM -80,-16' 
DRAM 80,-16' DRAM 0,32 
95 RETURN 

100 PLOT 192,24- DRAM -64,64- D 
RAM 80,-16- DRAM -16,-48 
105 RETURN 

110 PLOT 192,24- DRAM -64,64' D 
RflM 16,-80- DRAM 48,16 
115 RETURN 

120 PLOT 144,8- DRAM -16,80- DR 
AW -16,-00- DRAM 32,0 
125 RETURN 

130 PLOT 112,8- DRAM 16,80- DRA 
M -64,-64- DRAM 48,-16 


135 RETURN 

1000 IF INKEY0--5" THEN GO SUB 
<**10>- LET J.-JL-1 ■ IF *-l THEN 
LET *-13 

1010 IF INKEY0—"0“ THEN GO SUB 
<**10>- LET *-*+1' IF *-14 THEN 
LET *-2 

1020 INK 2- GO SUB <**10>- INK 7 
1030 PRINT AT x,*j INK 4; " *T 
1040 LET C-C+.2' IF c>l THEN LE 
T c-0' LET P-INT <RND*13>- GO SU 

8 4000 

1050 PRINT AT 1,1js;AT 17.lit;" 
-- LET t-t-1 

1060 IF t-0 THEN GO TO 8000 
1070 IF P-* THEN LET »-»+5' FOR 
n-0 TO 10- OUT 228,16+0' OUT 22 
8,0- NEXT n 
1080 GO TO 1000 

4000 PRINT AT x.vj" ■- GO SU8 <P 
*10>+5000 
4010 RETURN 

5020 LET x—14• LET «-9- RETURN 
5030 LET x—11 : LET «-8 RETURN 
5040 LET x—7- LET a-9 RETURN 
5050 LET x—4 : LET *-12- RETURN 
5060 LET x—4 LET *-16- RETURN 
5070 LET x—4 - LET y-19- RETURN 
5080 LET x°7- LET ¥-22- RETURN 
5090 LET x—11 - LET w-23- RETURN 
5100 LET x—14• LET v-2 2 RETURN 
5110 LET x— 17 - LET v-19- RETURN 
5120 LET x-19 : LET *-15 RETURN 
5130 LET x—18 ; LET *-12' RETURN 
7010 PRINT INK 2;"2X SPectru*"' 
' INK 4," DENBAR MARS" 

7020 PRINT AT 7,0; INK 4;"* * * 


.Licence 1983”'*"PRESS ANY KEY T 
0 PLAY A GAME” 

7040 PAUSE 0- PRUSE 0- PAUSE 0 
7050 GO TO 9010 

8000 BORDER 1- PAPER 1- INK 5- C 
LS 

8005 RESTORE 9540 
8010 FOR n-1 TO 15- READ *< BEEP 
.05,* ; NEXT n 

8025 IF s>h* THEN LET h*-a 
8030 PRINT AT 10,10; ,, SCORE- ,, ;a"' 
HI-”;hs'*'" ANY KEY 
FOR ANOTHER GAME" 

8040 PAUSE 0‘ PAUSE 0- PAUSE 0- 
PAUSE 0 

9000 BORDER 0- PAPER 0- INK 7- C 
LS 

9005 GO TO 7000 

9010 CLS ■ FOR n-20 TO 130 STEP 
10- INK 7- GO SUB n = NEXT n 
9020 LET *-2- LET *-0 
9030 LET c-0- LET x-14> LET v-9- 
LET P -2 - LET t-500 
9040 PRINT AT 0,1;"SCORE";AT 16, 
1 i "TIME"- PRINT £1;" S.Licence 
1903" 

9050 GO TO 1000 

9500 LET hft-0- FOR n-0 TO 7- REA 
D *■ POKE USR "*"+n,* : NEXT n 
9510 DATA 146,84,56,254,56.84,56 
,84,146,0 

9540 DATA 2,5.2,5,2,4,7,4,7,0,4, 
0,4,5.9,5,9 
9550 RETURN 
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Til 


ABANDONED 

HOWE 


T he abandoned house is 

a 16K ZX-81 adventure game 
and is this month’s program of 
the month. The author is Stephen Mur- 
gatroyd, aged 14, of Wantage, Oxon 
who has been programming since he 
received his ZX-81 in July. He is keen 
on adventure games and this is his first 
attempt at this type of game. 

Caught in a fierce electric storm, you 
seek shelter in an abandoned house. 
The door closes behind you, there is 
only one way out and you must find it. 
You explore the house, you are given a 
3D picture of each room as you enter it. 
You can find treasure or weapons but 
the house holds other secrets. The 
graphics are very good and add to the 
eerie atmosphere. 



34 


SINCLAIR PROGRAMS January 1984 








53 1 

532 

533 
534- 
54-0 
550 
560 
570 
5S0 
532 
584 
5S6 
525 
600 
602 
6 10 
620 
630 
63 1 
632 
634- 
636 
64-0 
650 
653 
660 
66 1 

662 

663 
6 6 4. 

665 
66 6 
667 

666 
662 
670 
6-71 

672 
6-73 
6-7 4- 
6-75 
6-76 
6-7 7 
6-76 

673 
660 
66 1 


LET D$ 

LET E$ 

LET G $ 

LET H $ 

LET R = 

IF R = 1 

IF R =2 

IF R =3 

IF R =4. 

IF R =5 

IF R =6 

IF R =7 

GOSUB 
SCROLL 
SCROLL 
IF F$ = 

IF F* = 

IF F$: 

IF F$ = 

IF F $ = 

IF F$ = 

IF F$ = 

SCROLL 
SCROLL 
FRST 
CLS 


= "R K 
= " R C 
= " R K 
= " R B 
INT < 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
653 


ITCHEN. 
ELLER . " 
ITCHEN. 
EDROOM . 
RND *7 5 + 


LET 

F$=B$ 

LET 

F$=R$ 

LET 

F$=C$ 

LET 

F$=D$ 

LET 

F $ =E* 

LET 

F$=G$ 

LET 

F * =H$ 


F$=R$ 

THEN 

GOSUB 

700 

F*=B$ 

THEN 

GOSUB 

S00 

F$=C$ 

THEN 

GOSUB 

300 

F$=D$ 

THEN 

GOSUB 

600 

F$=E$ 

THEN 

GOSUB 

700 

F$=G$ 

THEN 

GOSUB 

300 

F$=H$ 

THEN 

GOSUB 

700 


PR INT 

RT 

5,5 

PRINT 

RT 

19 , 

FOR Z 

= 0 TO 4- 

PRINT 

RT 

Z , Z 


NEXT Z 
LET X =0 

FOR Z =23 TO 25 STEP 

PRINT RT X, Z 
LET X=X+1 
N E XT Z 
LET X = 4 

FOR Z =20 TO 21 

PRINT RT Z,X; 

LET X = X — 1 

NEXT Z 

LET X =25 

FOR Z =20 TO 21 

PRINT RT Z , X; 

LET X = X + 1 

NEXT Z 

FOR Z =6 TO 13 


632 PR INT RT Z , 5 ; "| ** ; RT Z,24; " | 

633 NEXT Z 

664- PRINT RT 20,6; "YOU RRE FRCI 

NG ”; RT 2 1,3; F $ 

635 SLOU 

636 PRUSE 100 

630 RETURN 

700 PRINT ”<15 EXPLORE <25 LOOK 

FOR TRRP5" 

710 INPUT U 

720 IF U=1 THEN GOSUB 1000 

730 IF U=2 THEN GOSUB 1100 

735 SCROLL 

736 SCROLL ^ 

74-0 GOTO 510 

300 PRINT "Cl) EXPLORE (2) LERU 

E” 


8 10 

INPUT 

E 



320 

IF E = 1 

THEN 

GOSUB 

1000 

330 

IF E =2 

THEN 

GOSUB 

1300 

S33 

SCROLL 




336 

SCROLL 




340 

GOTO 510 



300 

PR INT 

”<15 - EXPLORE <2J 

(3 J 

LERUE” 




3 10 

INPUT 

O 



320 

IF 0 = 1 

THEN 

GOSUB 

1000 

330 

IF 0=2 

THEN 

GOSUB 

1400 

34.0 

IF 0=3 

THEN 

GOSUB 

1300 

34-3 

SCROLL 




34-6 

SCROLL 




350 

GOTO 510 



1000 

SCROLL 




1005 

SCROLL 




1010 

LET . R = 

INT (RND*4) 

+ 1 

1020 

IF R = 1 

THEN 

GOSUB 

1500 

1030 

IF R =2 

THEN 

GOSUB 

1600 

1040 

IF R =3 

THEN 

GOSUB 

1700 

104 1 

IF R =4 

THEN 

GOSUB 

1320 

1042 

SCROLL 




1043 

SCROLL 




1050 

RETURN 




1100 

SCROLL 




1101 

LET R = 

INT (RND*2) 

+ 1 

1 103 

IF R = 1 

THEN 

PRINT 

“THE 

E NO 

TRRP5 

HERE.• 



1104 

IF R =2 

THEN 

GOSUB 

1107 


REST 


1105 

1106 


PRUSE 60 
RETURN 
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1107 

PRINT 

EADS 

TO" 

110© 

SCROLL 

1110 

P R I NT 

1111 

PAUSE 

1112 

SCROLL 

1114 

SCROLL 

1120 

RETURN 

130© 

SCROLL 

13 10 

RETURN 

13 15 

SCROLL 

132 0 

E . " 

PRINT 

133© 

PAUSE 

1340 

RETURN 

1400 

SCROLL 

140 1 

LET A = 

1402 

IF A = 1 


YOU FIND ONE WHICH 


"ANOTHER 

30 


ROOM . 


"THERE 


NOTHING HER 


14-01 LET A = I NT (RND*2)+1 
14-02 IF A = 1 THEN PRINT "YOU REST 

AND THEN MOUE ON . ** 

14-03 IF A=2 THEN GOSUB 1406 

1404 PAUSE SO 

1405 RETURN 

14.0S PRINT "WHILE RESTING A THIE 

F COMES BY" 

1407 SCROLL 

14.03 PRINT "AND TAKES YOUR GOLD 

AND WEAPONS." 


1409 
14-10 
14 11 

14 13 
1414 
14-20 
ISO© 
ISO 1 

15 10 
GOLD " 
15 1 1 
15 12 
15 13 
15 14- 
ISIS 
«#*■' 

ISIS 
1520 
1530 
153 1 

1532 
1534 
1540 
1S00 
IS 10 
1615 
1S20 


LET G=G—G 
LET W=W—W 
PAUSE 30 
SCROLL 
SCROLL 
RETURN 
GOSUB 659 
SCROLL 
PRINT "YOU 


P R I NT 
PRINT 
P R I NT 
PRINT 
PRINT 


PAUSE 10 
LET G=G + 
LET S=S+ 
IF S > 350 


HAUE FOUND SOMI 


AT 

14,3 

AT 

15,3; 

AT 

16,3; 

AT 

17,3, 

AT 

13 , s; 

100 

G +2© 

3 + 10 


1645 

1643 

15 5 0 
1S51 
1S55 
165 S 
1660 
1SS5 

16 7 0 
1675 
1630 

1700 

1701 

17 10 
PON " 
1 7 1 1 
17 12 
1713 
17 14. 
17 15 
1716 
17 17 
17 IS 
17 IS 
1720 
1725 
1730 
1740 
174-5 
1750 
1760 
ISO© 
1320 
1330 


PRINT "YOU HAUE MET A ";M$ 

PAUSE 3© 

CLS 

SLOW 

PRINT "HAUE YOU A WEAPON 7" 

IF W =0 THEN GOTO 2115 
IF W<1 THEN GOTO 1660 
PRINT "YES" 

LET W =W — 1 

PRINT "YOU HAUE KILLED IT" 

GOTO 510 
GOSUB 65S 

SCROLL 

PRINT "YOU HAUE FOUND A WEA 


PRINT AT 9,14;" ■ 

PRINT AT 10,14;" ■ 

PRINT AT 11,14;"Ji 
PRINT AT 12,14;" ■ 

PRINT AT 13,14;" ■ 

PRINT AT 14,14; ", ■ 
PRINT AT 15,14;" ■ 

PRINT AT 16,14;" ■ 

PRINT AT 17,14;" ■ 

PRINT AT 13,14; 

LET W = W + 1 

LET S = S + 10 

IF S > 350 THEN GOTO 

SCROLL 

SCROLL 

RETURN 

CLS 

PRINT AT 5,10;"QSHI 
P RINT AT S . © ; '' ■■■ , I 


1300 


5,10; 
S , O ; " 


GOTO 130© 


SCROLL 

SCROLL 

RETURN 

FAST 

CLS 

LET A = INT (RND*3) +1 
IF A = 1 THEN LET M * = " 


mamm 

135 1 

WMUKBiti 

KE TO 

MB :|m 

1355 

.. 

I860 


1340 PAUSE 100 
134-5 CLS 

135© PRINT AT 5/0;" 
U HAUE FINALLY AND 
CARED FROM THE 
MONSTERS.";AT 3,0; 
ESCAPE YOU TOOK £ " 
RTH OF GOLD AND £"; 
TH OF WEAPONS." 

1SS1 PRINT AT 14,0; 
KE TO BECOME EUEN 


WELL DONE VO 
THANKFULLY ES 
HOUSE AND ITS 
" DURING YOUR 
£";G*S ;",000 WO 
"; W * 5; ", 000 WOR 


"WOULD YOU 


PAUSE 9999 
IF INKEY$="N" 


THEN GOTO 120 


1S 3 0 IF A =2 THEN LET MS 


1640 IF A=3 THEN LET M*= 


0 

1370 

r? < 

0 

1200 

1210 

1220 

2000 

2010 

2012 

20 15 
202 © 
2100 
2 115 
ILED 
2120 
2 13© 
2140 


IF INKEY $ = " THI 
IF INKEY*="Y" ' 


N GOTO 1350 
HEN GOTO 20 


CLS 

PR I NT 

STOP 

CLS 

PRINT 

PAUSE 

CLS 

GOTO ' 

CLS 

PRINT 

TO 

STOP 

SAUE 

GOTO 


WISE DECISION. 


"GREEDY 
50 


HING 


"BAD LUCK.YOU HAUE 


ESCAP1" 
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ZX81 KEYBOARD AT THE SAME 

OLD PRICE. £9.95. 


There's only one thing wrong with the 
ZX8I Its keyboard. 

Or rather its lack of one. 

Since its flat your fingers don’t feel as if 
there's any response to the pressure put on 
the keys. \ _. 


But our keyboard doesn’t just come 
loaded with features. With it comes a separate 
overlay and a set of coloured stick-on labels to 
make game playing easier. 

Its yours for the original price of £9.95. 
Whichever way you look at it, we think 
you’ll agree that it’s a keyboard that's quite 
outstanding. 

I Orders to Filesixty Ltd., FREEPOST, London W9 2 BfT 1 
| Cheques/PO made payable to Filesixty Ltd. | 

Please send me- (qty.) Keyboards at £9.95 each 
(including VAT and P&P). 

Total £ 


ZX81 KEYS FILESIXTY KEYS 

In other words, you’re not quite sure 
which keys you’ve pressed until the screen 
actually tells you. 

Our new, improved push button keyboard 
changes all that. 

It matches the ZX81 perfectly. And the 
keys give a real calculator-type feel. 

To set it up all you have to do is peel off the 
adhesive backing and stick it on top of the 
ZX81 touchpad. 

Because no tampering or soldering is 
involved the guarantee is not affected. And it 
will last for up to 3‘/2 million operations. 

Filesixty Ltd., 25 Chippenham Mews, London W9 2AN. England.Tel: 01-289 3059. Telex: 268 048 EXTLDN G 4087. 


BLOCK CAPITALS 


Address 


SP1/84 
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2 REM (WAR! 

5 PAPER 5- INK y BUPDER 1* L 
LS 

10 CO SUB 5G0O 
20 GO SUB 5000 

50 INPUT ; FLASH 1; "Do sou utis 
h to go first- <Y/N>";x* 

55 LET c-*e- GO SUB 8000 
40 IF vS-'-v OR x*-"Y" THEN GO 
TO 200 

bO GO SUB 2l0 GO TO 400 
200 REM PRINT STATUS 
205 GO SUB 210- GO TO 308 
210 INK 5- BRIGHT l 
220 FOR J=1 TO 7 
230 PRINT AT 7,C<4*J>-3>;" " 

240 IF a<15-J »0 THEN PRINT AT 
7»C < 4U )—3 >; a< 15- 0 
250 NEXT J 
260 FOR J^l TO 7 
265 PRINT AT 14.<l♦<4* J> > j " " 

270 IF ?< »:*>0 THEN PRINT AT ’4, 
' l+< 4*J>>;A<J> 

200 NEXT J 
290 RETURN 

300 LET h-0 FOR x-1 rtj g- LET 
h*h-»-a< x> : NEXT x- IF h-0 THEN LC 
T "1■ GO SUB 1O00- GO TO 400 
305 IF 2»6 THEN GO SUP 750- GO 
TO 340 

310 INPUT ; FLASH l*"Enter cuP 
number < 1-6 >";c 

32W PRINT AT 21,0;"You chose cu 
P "; c 

330 IF c.=Q THEN RUN 

334 IF 06 OP C< 1 THEN GO TO 30 

0 

340 GO SUB 1000 
350 GO SUB 210 

400 REM COMPUTERS TURN 

401 IF 2-1 OR 2-6 THEN GO TO 70 

0 

402 IF 2-2 THEN GO TO /■ 00 

403 IF 2-'-: THEN GO TO 4W 

404 IF ?“4 THEN GO TO 880 

405 Ir 2-5 THEN Go Tn -ini' 

403 REM MOVE l EVTJ. :j 

403 TOR J-l TO 6 

41.0 rr AC 14-J X>0 THI N GO T " 44 

0 

420 NEXT J 
430 GO TO 460 
440 LET C-14-J 

445 PAUSE 50- PRINT AT 21,17;"S 
Pectrum euP FLASH l;7-j- PRUS 
E 100 PRINT AT 21,0;" 

M 

450 GO SUB 1000 

460 LET T-0- FOR X~1 TO 6- LET 
T“T+A<X ) i NEXT X- IF T-0 AND A<7 
•>>24 THEN CL3 • PRINT AT 4,6; "A 
W A R 1 Level ";t;AT 10,7; FLA 
SH 1;"YOU WIN ";A<7>;" TO ";48-A 
< 7 > : GO TO 500 

461 LET T=Q FOR X»3 TO 13 EFT 
T-T+fl<X>- NEXT y IT T-0 AND A< 

14>>24 THEN CLS PRINT AT 4,6;" 
A W A R I Level "• z;flT 10,8; F 
LASH t; " I WIN ";A<14 >;" TO " 

A<14)' GO TO 500 

462 IF A<7>*fK 14>-4€* THEN CLS > 
PRINT AT 4,6;"A W A R I Level 
";z;AT 10,12; FLASH 1;"A DRAW"- 
GO TO 580 

470 GO TO 20O 

499 STOP 

500 INPUT ; FLASH 1;"Press ENTE 
P to Play again.";x* RUN 

6O0 REM MOVE LEVEL 2 
605 LET H-0 
610 FOR J-l TO 6 
612 IF A(14—J >-J THEN GO TO 440 
615 IF AC14-J >>H THEN LET H-A<1 
4-J > 

620 NEXT J 

630 FOR J=1 TO 6 

635 IF fl<14-J>«H THEN GO TO 440 

640 NEXT J 


650 STOP 

700 REM MOVE LEVEL l 
705 LET H-0 
710 FOR J=1 TO 6 
712 IF <R< 14-J >-K 14-J >»-14 THE 
N GO TO 440 

715 IF AC14-J »H THEN LET H-fiC1 
4—J > 

720 NEXT J 

730 FOR J-l TO 6 

735 IF R<14-J H THEN GO TO 440 

740 NEXT J 

745 STOP 

750 PEM AUTO move 

760 FOR r-6 TO 1 STEP -1 

762 IF R< c >+c N ~7 THEN GO TO 795 

779 NEXT c 

7e8 FOR c-1 TO € 

705 IF ACrV'O THEN CO TO 795 
790 NEXT c 

795 PRINT AT 21,0;"You move cuP 
";ci PAUSE 59 
799 RETURN 
900 PEM MOVE LEVEL 4 
310 LET J-INT ( RNDT6 >*1 
320 IF ft< 14—JXXJ THEN GO TO 44 
0 

838 LET h*0• FOP x-1 TO 6- LET 
h«h+a<14-x >■ NEXT x 
949 IF h>0 THEN GO TO 810 
850 GO TO 440 
900 REM LEVEL 5 
910 LE T J*C 
920 GO TO 020 

1008 REM MOVE USING CUP C 
10O1 IF ACO-0 THEN RETURN 
1005 GO SUB 0000 


1010 

FOR J-C+1 TO RCC HC 


1020 

LET K-J 



1030 

IF J>14 THEN LET 

K-J- 

-14 

1040 

LET AC K >-A< K >+1 



1050 

NEXT J 



1960 

LET £K C 



1070 

IF NOT A<K>-1 OR 

NOT 

K-7 OR 

NUT 

K—14 THEN RETURN 



1080 

LET AC K >-A< K >*A< 14-K > 

1090 

LET fl<14-K >®0 



1100 

RETURN 



5000 

REM PRINT BO ARC’ 



5005 

CLS 



5010 

PRINT AT 1,5;" A 

W A 

P 1."; 


TAB 20;"LEVEL ";Z 
5015 GO SUB 600O 

5020 PRINT AT 4,1; INK 1; BRIGHT 
1;"ST € 5 4 3 2 1" 

5030 LET a*-"a da da da da 

da da d" ~ — 

5035 LET b*-"b fh fh fh fh 

£b fb _f" — 

5040 LET c*-"c_ec_ cc _ec_ec_ 

ec_ec_ e" — — — — — 

5058 PRINT AT 6,0; INK 7; BRIGHT 
l,a*.AT 7,0;b*;AT 8,0;c*.AT 13, 
4;a*;AT 14,4;b*;AT 15,4;eS 
5060 PRINT AT 17.1:; INK 1 CRIC 
HT 1 ;."CUP 1 2 3 4 5 6 

ST" 

5090 DIM AC14> 

5100 FOR J-l TO 14 

5110 IF J-7 OR J—14 THEN GO TO 5 

138 

5120 LET Ac J >-4 
5139 NEXT J 
5999 RETURN 
6080 REM set-up UOG 
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T HE AIM of Awari is to finish 
with more beans in your score 
cup than the computer has in its 
score cup. You each begin with four 
beans in each of your six cups and an 
empty score cup each. 

Choose a cup and the teams in it will 


be removed and distributed singly into 
the following cups. No bean can be 
removed from a score cup. Thus, if you 
choose bowl three initially it will be 
emptied and an extra bean will appear 
in bowl two, bowl one, your score bowl 
and the sixth computer bowl. Several 


levels range from easy to extremely 
difficult, and include an option for a 
demonstration game. 

This professional-quality program 
was written for the 16K Spectrum by 
Terry Hainsworth of Radclifle-on- 
Trent, Nottinghamshire. 


e 


IT i 


6010 FOP f«0 TO 6 * FOR 9=Q TO ?• 
READ POKE USR CHR* C 144+0+9 
.a NEXT 9' NEXT C 
6020 DATA 36,144,16,16.16,16.16, 
16 

6030 DATA 16,16,16,16,16,16,16,1 

6049 DATA 16,16.16,16,16,16,3.7 
665G DATA 6,3,8.6,8.8,8,8 
6068 DATA 8.8,8,8,8,8,16,224 
6070 DATA 8,8.8,8,8,3,8,8 
6880 DATA 0,0,0,0.0,0,0.25b 
6098 RETURN 
8000 REM sound 

3010 BEEP .l,<c*3>-4 BEEP .l,e* 

3- BEEP .l,<crj>+4 

8820 RETURN 

9000 REM LEVEL OF PLAY 

9O10 CLS 

9020 PRINT AT 13,O; FLASH 1j"RLE 
ASE ENTER LEVEL OF PLAY*' 


9038 PRINT AT 16,3;"1 - HARD" 
9040 PRINT AT 17,3;“2 « EASY" 
9050 PRINT AT 18,3;"3 - EVEN EAS 

IEP" 

9GS5 PRINT AT J9,9;"4 = BEAT THE 
MONKEY" 

9057 PRINT AT 28,3;“5 ~ BEAT THE 
ZOMBIE" 

9058 PRINT AT 21.3;"6 » DEMONSTR 
ATIOK" 

9068 INPUT 2 

9064 if ?/\ 0 P 2^6 THEN CO TO 90 
00 

9068 LET CO SUB 8890 

9870 RETURN 
9950 CLS 
9968 CLEAR 

9980 SAVE "AWARI" LINE 1 


SINCLAIR PROGRAMS September 1983 



P LING is an old routine. Its au¬ 
thor, Ken Rylett of Manchester, 
reports it as very similar to the 
first video game he played and we 
believe him. It is worth taping, since 
nobody criticises the Mona Lisa for 
being an old picture. 

The game is for two players, each 
with a goal and a bat with which to 
defend it. A ball is bouncing around the 
court and the rest is as you would 
expect. Full instructions are supplied 
and a running score is kept. 

A conventional routine well worth 
having. After all, nobody criticises foot¬ 
ball for not being new. (48K Spectrum). 


nr 




w 

""'is 


■/i 




m 


r.t 


U 


q/L 


% 


ft ’ 


'M 




nil 


$ 


\4f/i 




iOO0 SEM H 

1010 

1020 POKE 23658,8: GO SUB 9500: 

30 SU5 9000 

1030 

3000 REM 
= 010 

=020 LET b-30 LET *=-l 
2030 LET y=INT (BNDv 6 *l) 

2040 IF RND <.5 THEN LET y=y *12 
20S0 LET Z =1 

=060 XF RND4.5 THEN LET Z=-Z 
2070 PRINT INK 1 ;RT y , bi 
2080 IF IN 63486*254 THEN GO SUB 
3020- GO TO 2120 
=090 IF IN 64610=254 THEN GO SUB 
3030: GO TO 2120 
2100 IF IN 61438=254 THEN GO SUB 

wa-. nn to 2 .u=o 

2110 IF IN 57342=254 THEN GO SUB 

.. 

2120 PRINT RT y,b;" " 

2130 XF RTTR (y »z , bJ =64 THEN LET 
Z=-Z: BEEP .1,10 
2140 IF RTTR (y*Z,b»M)=64 THEN L 
ET •»=-*: BEEP .1.10 
2150 LET y =y »Z : LET b = b*w 
2160 IF b =0 OR b=31 THEN GO TO 4 


2170 GO TO 2670 _ 

3000 REM K Wt M 
3010 

3020 IF 11>1 THEN PRINT RT 11.2. 

• ";RT lb,2;“ LET lt=lt-l: LE 
T lb=»b-l; PRINT PRPER O,RT It,2 
;*• ";«T Lb, 2:" RETURN 
3030 IF lb<20 THEN PRINT RT It,2 
";AT lb,2;” ”.- LET ll = ltn. l 


ET lb = lb*l: PRINT PAPER 0,RT It. 
2 ; " **; at lb. 2 ;- **: return 
3040 IF rl>l THEN PRINT RT ft,29 
",AT rb,29;“ LET ftsft- 1 : 
_ET f b=f b-1. PRINT PRPER 0;RT ft 
,29; " ";RT r b,29;“ “: RETURN 
3050 IF f b <20 THEN PRINT RT ft,2 
3;- **;RT f b,29; “ **: LET rt=fUl: 

LET fbsfbtl: PRINT PRPER 0;HT f 
t.29, ~ "; RT f b,29; ** " : RETURN 
3060 RETURN 
3070 
1010 

L020 XF b=0 THEN LET =9ftl: LE 

r ba3B. GO TO 4040 

1030 LET 9 t=g1*1: LET b=l 

1040 PRINT FLRSH 1, BRIGHT Xl PR 

PER 6 , INK 0.RT 4.5:yl,AT 4,25;9 

r IF 91-5 OR 9f=5 THEN GO TO 40 

1050 FOR n =1 TO S00; NEXT n 
1060 PRINT AT 4,5;" AT 4,25;" 
1070 GO TO 2030 

10S0 PRINT FLASH 1.AT 10,5,"ANY 
KEY TO PLAY AGAIN. FOR «1=1 TO 
500: NEXT N 

4090 IF INKEY*="" THEN 60 TO 409 

1100 PRINT RT 10,5;" 

“-AT 4,5;" ”;RT 4.25;" 
LET 91:0: LET 9r =0: GO TO 20 

♦lie _ 

9000 REM n» 

9010 

9020 FOR n =0 TO 7 

a : POKE USA "A"*n , a 
>040 NEXT n 


3050 
, 126. 
3060 
9100 
9110 
3120 

9130 

3140 

9150 

3160 

9170 

21 . 0 : 


DRTA 60,126,255,255,255,255 
60 

LET lt=10; LET lb=l1 
LET f t =10: LET f b = ll 
SORDER 2. PRPER 5: BRIGHT 1 
INK 0 : CLS 

PRINT PAPER 0;RT It,2 " 

PRINT PAPER 0;RT lb,2 " 

PRINT PRPER 0;RT ft.29;” " 
PRINT PRPER 0;RT fb,29;" " 
PRINT PRPER 0;RT 0,0;” 

"< OT 


3180 FOR n = 1 TO 8 

319B PRINT PRPER O;RT n,@;" ";AT 
3 2?2 3 l 0; ” “' Br n,3l;" ";at n+13, 
3200 NEXT n 

3210 LET Jl= 0 : LET gr =0 

3220 RETURN 

9230 _ 

9500 REM aftfl—W 

3S10 

3520 BORDER X: PAPER 1: INK 0: 

9530 PRINT PRPER 6 ; BRIGHT 1;RT 
1,12;** PLING " 

3540 PRPER 7 

9550 PRINT RT 4,0;" This is a 2 
> l a y e r g.*m* ", RT 10 , 0 ;- Left pi 

9y er 1 for op ",RT 12,16;" O 


«»ynv piayer 
own " ' UP ; ” T IB, IS;" P d 

!®ls i Set3rn enter to PLfiY LIN 


»r up ; RT 12,16;" < 
i 6 ,0 ; "Ri9h t p layer 
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Y OU ARE trying to break into 
Fort Knox to steal as much 
money as possible. You will 
have to experience many trials before 
you leave dead — or a millionaire. 

Fort Knox was written for the 16K 
ZX-81 by Gordon Bold of Edinburgh. 


2 LET AG-G 
2 LET Hb*0 

4 LET NS=" 

5 GOSUB 5000 

6 PRINT "HOW MANY PLAYERS?" 

7 INPUT PL 

8 LET S*=0 

9 FOR W-l TO PL 

10 PRINT laaer W 

11 LET S-0 

12 PAUSE 7b 

13 CLS 

14 PRINT "fort knox n" 

lb PRINT AT 0,i4;"hi9h score;" 
;HS 

17 PRINT AT 1,14; m jN« 

18 PRINT AT 2,l4>"a9e=";AG 

22 PRINT AT 5/7;"INSTRUCTIONS? 
< Y/N >" 

23 INPUT I* 

24 IF IS«"N" THEN GOTO 108 

25 IF I*-"Y" THEN GOTO 30 

30 PRINT AT 5,7;"instruction* 

M 

33 PRINT iI "YOU ARE TRYING TO 
BREAK INTO A SPECIAL BANK WHICH 

CONTAINS OVER£100< 000,000.YOU W 
ILL HAVE TO " 

34 PRINT "OVERCOME MANY DANGER 
S ON YOUR WAY TO THE VAULT.DUR 
INC THE GAMEYOU GAIN AND LOSE PO 
INTS. " 

3b PRINT "YOU ARE REPRESENTED 
BY AN ""0"”" 

40 PRINT "IF YOU COMPLETE A TA 
SK SUCCESSFULLY YOU WIL 

L CHANGE TO AN <<io>>,IF NOT YOU 
WILL CHANGE TO AN «!*>>." 

80 PRINT /,"PRESS N/L TO CONTI 
NUE" 

90 IF INKEY*-"" THEN GOTO 90 

108 CLS 

109 LET A-INT <RND*3)+1 

110 PRINT "Phasell!" 


120 PRINT "THERE ARE 3 PASSAGE* 
WHICH LEAD TO THE VAULT.1 OF TH 
E PASSAGES HAS AN ALARM" 

140 PRINT "TYPE IN WHICH PASSAG 
E (1 TO 3)" 

150 INPUT C 
170 PRINT 

180 PRINT AT 7,0;"<0*99'i&P zP■ 
ISP'2*99’1SP SP•isP 2*99’ISP SP’ 
ISP'11*99 >" 

162 FOR F-l TO 7 

184 PRINT "<8*9h : isP•sP•isP ’2*9 
h’isP sP'isP'2*9hisp sp•isp• 11* 
9h>" 

185 NEXT F 

186 PRINT AT lS,0;"<8*9f isp sp 
■isp 1 2*9f : isp sp isP : 2*9f 'isp sP 
•isP «ll*9f>" 

190 IF C-l THEN LET Y-9 
200 IF C-2 THEN LET Y-14 
210 IF C-3 THEN LET Y-19 
220 LET X-6 
230 PRINT AT X,Y;" " 

240 LET X-X+l 
250 IF X-15 THEN GOTO 300 
255 IF X-10 AND C-A THEN GOTO 3 
50 

260 PRINT AT X,Y;"0“ 

270 GOTO 230 

300 PRINT AT X,Y;“<io>" 

302 PRUSE 75 
305. CLS 

306 LET Q-INT <RND*30)+10 
308 PRINT "YOU HAVE ELUDED THE 
ALARM AND " 

310 PRINT "HAVE GAINED M ;O*100 
POINTS" 

330 GOTO 400 

350 PRINT AT X,Y;"<i*>“ 

352 PAUSE 75 

354 CLS 

355 PRINT “YOU HAVE BEEN ARREST 
ED BY A" 

360 PRINT "POLICEMAN.YOU LOSE 5 


00 POINTS AFTER BRIBING HIM" 
365 LET S-S-500 
368 PRINT ,,"score ";S 
370 PRINT ,,"PRESS N/L TO TRY A 
GAIN" 

380 IF INKEY*-"" THEN GOTO 380 

390 GOTO 105 

400 LET S-S+< 0*100 > 

405 PRINT ,,"score ";S 
410 PRINT ,,"PRESS N/L TO CONTI 
NUE" 

420 IF INKEY*-"“ THEN GOTO 420 
430 CLS 

440 PRINT "Phase 2" 

450 LET Z-INT <RND*6>+1 

455 PRINT ,,"YOU HAVE FOUND A K 
EY RND MUST PUT IT INTO 1 OF T 
HE DOORS < < id ) >. USE THE CURSOR 
KEYS TO MOVE AROUND" 

456 PRINT ,,“PRESS N/L TO CONTI 
NUE“ 

457 IF INKEY*-"" THEN GOTO 457 

458 CLS 

459 LET L-6 

460 LET C-4 

461 LET X-INT <RND*5> 

462 LET Y-INT <RND*5> 

464 PRINT AT X,Y>"<id>" 

470 LET A-INT <RND*5> 

472 LET B-INT <RND*b> 

474 PRINT AT A,B;"<id>" 

475 PRINT AT L,C>" " 

477 LET L-L+< INKEY**"6'* >-< INKEY 
•-"7"> 

478 LET C-C+< INKEY*-"8" INKEY 

*-"5" > 

480 IF L-X AND C-Y THEN GOTO 5b 

0 

485 IF L-A AND C-B THEN GOTO 57 

0 

490 PRINT AT L,C;"G" 

500 GOTO 475 

550 PRINT AT L,C;"<io>" 

555 PAUSE 75 
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556 CLS 

560 PRINT "WELL DONE YOU CHOSE 
THE CORRECT DOOR AND CAN CONTINU 
E TO THE NEXT PHASE" 

562 PRINT "YOU HAVE SCORED ";<Z 
*Z*100>;" POINTS" 

563 LET S-S-K Z*Z*100> 

564 PRINT ,."score "jS 

565 PRINT ,,"PRESS N/L TO CONTI 
NUE" 

566 IF INKEY*-"" THEN GOTO 566 

567 CLS 

566 GOTO 600 

570 PRINT AT L,C;"<i*>" 

575 PAUSE 75 

576 CLS 

578 PRINT "HARD LUCK.YOU CHOSE 
THE WRONG DOOR AND HAVE FALLEN 
INTO A PIT YOU LOSE 50O POINTS 
CLIMBING OUT" 

380 LET S-S-500 

581 PRINT ,."score ";S 

582 PRINT ,,"PRESS N/L TO TRY A 
GAIN" 

584 IF INKEY*-"" THEN GOTO 504 

586 CLS 

590 GOTO 439 

600 PRINT "Phase 3" 

610 PRINT .."YOU HAVE TO WALK A 
LONG A PLANK BECAUSE OF THE GUA 
RD DOGS BELOW 8E CAREFUL.SOME OF 
THE PLANK IS ROTTEN" 

612 PRINT "THERE IS A CROWBAR < 
+> AT THE END OF THE PLANK.IF 
YOU HIT IT YOU WILL GAIN POINTS 


615 PRINT "USE " U W"“ TO WALK AN 
D ""J"" TO JUMP" 

629 PRINT .."PRESS N/L TO CONTI 
NUE" 

630 IF INKEY*— M " THEN GOTO 630 
640 CLS 

700 LET L-4 
70S LET C«0 

710 PRINT AT 5.0; H <e7-2*sP '2*9? 
! sP 97 1 SP : 2*97 ' 4 *sP 97 -2*SP- 2*97 
>" 

712 PRINT AT 12,G;"<l9*9a >" 

715 PRINT AT 4, 17; " + " 

720 PRINT AT L.C;" " 

730 IF INKEY*-"W" THEN LET C-C+ 

1 

735 IF L-4 AND C-l OR L-4 AND C 
-2 OR L-4 AND C-3 OR L-4 AND C-7 
OR L-4 AND C-10 OR L-4 AND Oil 
OR L-4 AND C-l2 OR L-4 AND C-13 
OR L-4 AND C-15 OR L-4 AND 016 
THEN GOSUB 900 

737 IF INKEY*-"J" AND L-L+l AND 

C-C+l THEN GOTO e50 

740 IF INKEY*-"J" THEN GOSUB 95 

0 

745 IF INKEY*< >"J" AND L<4 THEN 
GOSUB 1000 

747 IF INKEY*-"J" AND L-L+l AND 
C-C+l THEN GOTO 850 
750 PRINT AT L,C;"U" 

760 IF L-4 AND G-18 THEN GOTO 1 
200 

765 IF 019 THEN GOTO 802 

766 IF 0-18 AND L<>4 THEN GOTO 
802 

770 IF C-l9 AND L-4 THEN GOTO 1 
500 

775 LET Z-INT <RND*20>+1 
780 IF L-4 AND C-l7 THEN LET S- 
S+< Z*20 > 

800 GOTO 720 

802 PRINT AT L.C;"<l*>" 

803 PAUSE 100 

804 CLS 

805 PRINT "YOU HAVE JUMPED OUT 
OF THE BANK" 

810 PRINT "YOU LOSE 1000 POINTS 

812 LET S-S-1000 
814 PRINT ,,"score ";S 
015 PRINT ,,"PRESS N/L TO TRY A 
GAIN." 

e20 IF INKEY*-"" THEN GOTO 820 

825 CLS 

030 GOTO 700 

850 PRINT AT L,C;"<i*>" 

853 PAUSE 75 
860 CLS 


862 PRINT "YOU CHEATED.THE 2X81 
DOES NOT LIKE CHEATS." 

865 PRINT score ";S 

866 PAUSE 120 

867 IF S<HS AND W<PL THEN GuTQ 
890 

668 IF S>HS THEN GOTO 4005 

890 PRINT ,,"PRESS N/L FOR NEXT 

PLAYER" 

e9l IF INKEY*-"" THEN GOTO 891 

892 CLS 

893 NEXT W 

894 GOTO 8 

910 PRINT AT L.C;" " 

915 PRINT AT 11 ,C; "< l* 

916 PAUSE 75 

917 CLS 

920 PRINT "A HUNGRY ALSATIAN GU 
ARD DOG HAS ATTACKED YOU AND GOB 
BLED YOU UP" 

922 PRINT ,."score “;S 

923 PAUSE 150 

925 IF S>HS THEN GOTO 4005 

926 IF W-PL THEN GOTO 6000 
93© IF S<HS AND W<PL THEN GOTO 

934 

934 PRINT PRESS N/L FOR NEXT 
PLAYER" 

935 IF INKEY*-"" THEN GOTO 935 
940 CLS 

942 NEXT U 
945 GOTO 8 
950 LET L-L-l 
960 LET C-C+l 
980 GOTO 720 

1000 LET L-L+l 

1001 LET C-C+l 

1002 IF INKEY*-"J" THEN GOTO 850 
1005 IF L>-4 THEN LET L-4 

1130 RETURN 
1200 PRINT 

1205 PRINT AT 5,l8;“<9h>" 

1206 PRINT AT 5,19;" C8*9h>" 

1210 PRINT AT 6,18;"< 9h) <8*9h>" 
1220 PRINT AT 7,l8;"<9h) <8*9h>" 
1230 PRINT AT 8,18;"<9h> <8*9h>" 
1240 PRINT AT 9,18;"<9h> <8*9h>" 

1259 PRINT AT 10,l6;"<9f> 

•I 

1260 PRINT AT 11,18; "<90 

1270 PRINT AT 12,18;"<10*9f>" 

1280 GOTO 720 

1500 PRINT AT 4,19;" " 

1505 LET L-ll 

1506 LET C-l9 

1510 PRINT AT L.C;" " 

1511 LET C-C+l 

1512 IF C-27 THEN GOTO 1515 

1513 PRINT AT L,C;"0" 

1514 GOTO 1507 

1515 PRINT AT L,C;"<io>" 

1520 PAUSE 150 

1530 CLS 

1535 LET X-INT <RND*10O>+1 
1540 PRINT "WELL DONE.YOU HAVE G 
AINED ";X*100;" POINTS FOR FIND 
ING THE CORRIDOR" 

1550 LET S«S+<X*100> 

1560 PRINT ,,"score ";S 

1600 PRINT PRESS N/L TU CONTI 

NUE" 

1610 IF INKEY*-"" THEN GOTO 1610 
1620 CLS 

1700 PRINT "Phase 
1720 PRINT ,,"THERE IS A STEEL D 
OCR IN THE CORRIDOR.YOU MUST 

INPUT THE AMOUNT OF EXPLOSIV 

ES TO BE USED" 

1725 PRINT “<1 OR 2> TONS." 

1730 PRINT ,,"PRESS N/L TO CONTI 
NUE" 

1735 IF INKEY*-"" THEN GOTO 1735 
1740 CLS 

1745 PRINT AT 5,0;"<32*9h>" 

1750 PRINT AT 8,0."<32*9h>" 

1755 LET L-7 

1756 LET C-l4 

1760 PRINT AT L.C;"0" 

1770 PRINT AT 6,15; “< isP >" 

1780 PRINT AT 7,15; "<isP>" 

1800 LET V-INT < RND*2 >+l 
1810 INPUT I 

1020 IF IOV AND V-l THEN GOTO 1 
850 


1825 IF IOV AND V-2 THEN GOTO 1 
680 

1840 IF I-V THEN GOTO 1950 

1850 PRINT AT L,C;"0*Y 

1051 PRINT AT 6,15;" ";AT 7,15;" 

M 

1055 PAUSE 100 
1858 CLS 

1860 PRINT "TOO MUCH EXPLOSIVE.Y 
OU HAVE BLOWN YOURSELF UP" 

1862 PRINT ,,"score ";S 

1863 PAUSE 120 

1865 IF S>HS THEN GOTO 4005 

1866 IF S<HS AND W<PL THEN GOTO 
1869 

1867 IF W-PL THEN GOTO 6800 

1869 PRINT "PRESS N/L FOR NEXT P 
LAYER" 

1870 IF INKEY*-"" THEN GOTO ie70 
1872 NEXT W 

1875 CLS 
1878 GOTO 8 
1980 PAUSE 100 

1885 CLS 

1886 LET Q-INT <RND*20>+1 

1888 PRINT "NOT ENOUGH EXPLOSIVE 

.YOU LOSE ";Q*100;" POINTS" 

1889 LET S-S-< G*100) 

1890 PRINT ,,"score ";S 

1893 PRINT ,, "PRESS N/L TU Tf?Y A 
GAIN" 

1895 IF INKEY*-"" THEN GOTO 1893 

1696 CLS 

I960 GOTO 1740 

1950 PRINT AT 6,15;" " 

1960 PRINT AT 7,15;" " 

1965 PRINT AT L.C;" " 

1970 LET C-C+l 

1980 PRINT AT L,C;"0" 

1990 IF C-31 THEN GOTO 1995 

1992 GOTO 1965 

1995 PRINT AT L,C;"<iO>" 

2000 PAUSE 75 
2003 CLS 

2010 PRINT "WELL DUNE.YOU HAVE G 
OT THROUGH THE STEEL DOOR AND H 
AVE GAINED 2000 POINTS" 

2015 LET S-S+2000 

2020 PRINT ,,"scoreL";S 

2030 PRINT ,,"PRESS N/L TO CONTI 

NUE" 

2040 IF INKEY*-"" THEN GOTO 2040 
2050 CLS 

2100 PRINT "Phase 5" 

2110 PRINT ,,"YOU ARE IN A LARGE 
ROOM AND THE FLOOR WILL BECOME 
ELECTRIFIED" 

2120 PRINT "AFTER 100 SECONDS.YO 
U MUST FIND THE HIDDEN SWITCH BE 
FURE" 

2130 PRINT "YOUR TIME RUNS OUT" 

2132 PRINT "IF YOU TURN IT OFF 1 
N TIME A CORRIDOR IS PRINTED" 

2133 PRINT "IF YOUR TIME RUNS OU 
T THE SWITCHIS PRINTED" 

2133 PRINT “USE THE CURSOR KEYS 
TO MOVE AROUND" 

2140 PRINT ,,"PRESS N/L TO CONTI 
NUE" 

2150 IF INKEY*-"" THEN GOTO 2158 

2160 CLS 

2175 LET T-100 

2194 LET L-7 

2196 LET C-0 

2200 PRINT AT 5,0;"<7*9h-10*sP■9 
h>" 

2210 PRINT AT 8,0;"<7*9h*10 *sP 9 

h>" 

:220 PRINT AT 4,6; "< 9h 10*aP 1 9h> 

t 

2230 PRINT AT 3,6;"<9h 10*sP•9h> 

2235 PRINT AT 6,6;"<1l*sP•9h>" 
2240 PRINT AT 2,6;"<9h■10*sP 9h> 
* 

2245 PRINT AT 7,6;"<1l*sP■9h>" 
2250 PRINT AT 1,6;"<9h>10*sP 9h> 

M 

2260 PRINT AT 0,6;"<I2*9h>" 

2270 PRINT AT 9,6;"<9h^10*sP■9h> 

M 

22G0 PRINT AT 10,6;"<9h-10*sP-9h 
2290 PRINT AT 11,6;"<9h•10*sP■9h 


40 
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2300 PRINT FIT 12,6; "< 9h 10*sP 9h 

>" 

2310 PRINT AT 13,6;"<9h■10*sP-9h 

>" 

2320 PRINT AT 14,6; "< 12*9h>" 

2325 LET X-1NT <RND*12>+1 

2326 LET Y-INT <RND*9>+7 
2330 PRINT AT L,C;" “ 

2333 PRINT AT X,Y;"-" 

2335 LET T-T-l 

2340 LET L-L+<1NKEY*«"6">-<INKEY 
*-"?"> 

2350 LET C-C-K INKEY*-"8 M )-< INKEY 
*•"5" > 

2355 IF L<-0 THEN LET L-l 

2356 IF L>-14 THEN LET L-13 
235? IF 0-17 THEN LET C-16 
2350 IF L< >7 AND C<-6 THEN LET C 

-7 

2360 IF L-X AND OY THEN GOTO 25 
00 

2365 IF 06 THEN PRINT AT 6,6; "< 
9h >"; AT 7,6; "< 9h >" 

2370 IF T— 1 THEN GOTO 2600 
2380 PRINT AT L,C;"Q" 

2390 PRINT AT 0,22;"time ";T;" " 
2400 GOTO 2330 

2500 PRINT AT L,C;" " 

2501 PRINT AT 14,8;" 

2502 PRINT AT 15,7;"<9h 3*sP■9h ; 

2503 PRINT AT 16,7; ’’<9h 3*sP «9h > 

II 

2504 PRINT AT 17,7;"<9h 3*sP-9h> 

II 

2505 PRINT AT 18,7;"<9h*3*sP«9h) 

fl 

2506 PRINT AT 19,?;”<9h 3*sP'9h> 

II 

2507 PRINT AT 20,7;"<9h-3*sP•9h> 

M 

2508 LET L=15 

2509 LET C-8 

2510 PRINT AT L,C;" " 

2511 LET L-L+l 

2512 IF L-20 THEN GOTO 2515 

2513 PRINT AT L,G;"0" 

2514 GOTO 2510 

2515 PRINT AT L,C;"<io>" 

2513 PAUSE 120 

2520 CLS 

2530 PRINT "YOU TURNED OFF THE S 
WITCH IN TIME.YOU SCORED ";T* 
100;" POINTS" 

2535 LET S-S+<T*100) 

2540 PRINT ,,"scor* ";S 

2550 PRINT ,,"PRESS N/L TO CONTI 

NUE" 

2560 IF INKEY*-"" THEN GOTO 2560 

2565 CLS 

2570 GOTO 2700 

2600 PRINT AT L,C;"<x*>" 

2605 PRINT AT X,Y;"-" 

2610 PAUSE 100 
2620 CLS 

2630 PRINT "YOU HAVE BEEN ELECTR 
IFIED." 

2640 PRINT ,,"score “;S 
2642 PAUSE 120 

2645 IF S>HS THEN GOSUB 4005 
2650 IF S<HS AND U<PL THEN GOTO 
2659 

2655 IF U-PL THEN GOTO 6000 

2659 PRINT ,,"PRESS N/L FOR NEXT 
PLAYER" 

2660 IF INKEY*-"" THEN GOTO 2660 
2670 CLS 

2672 NEXT U 
2680 GOTO 8 
2700 PRINT "Phase 6" 

2710 PRINT ,,"YOU HAVE FINALLY R 
EACHED THE VAULT.THE COMBINAT 
ION WILL BE PRINTED FOR A FEU" 
2720 PRINT "SECONDS.YOU MUST REM 
EMBER IT ANDTYPE IT IN WHEN YOU 
ARE TOLD" 

2725 PRINT "IF YOU INPUT THE URO 
NG COMBINATION THE CORR 

ECT ONE WILLBE PRINTED" 

2730 PRINT "GOOD LUCK." 


2740 PRINT ,,-PRESS N/L TO CONTI 
NUE" 

2750 IF INKEY *-"" THEN GOTO 2750 

2760 CLS 

2770 LET L-15 

2780 LET C-9 

2790 PRINT AT L,C; M - 

2800 PRINT AT 16,6; "<9Jv5**P 9h> 

tt 

2801 PRINT AT ll,6;"<9h 5*sP 9h> 

•I 

2882 PRINT AT 12,6;"<9h 5*aP 9h> 
•• 

2803 PRINT AT 13,6;"<9h 5*sP 9h> 
2304 PRINT AT 14,6;"<9h•5*sP•9h> 

99 

2805 PRINT AT 15,6; "< 9h 5W 9h > 

If 

2810 PRINT AT l6,6;"<9h 5*xsP 9h 

>“ 

2811 PRINT AT 17,6;"C9h -5*sP 9h> 

* 

2812 PRINT AT 18,6;"<9h btsP -9h> 

99 

2813 PRINT AT I9,6;"<9h 5*sP 9h> 

•I 

2814 PRINT AT 20,6;“<9h • 5*sP 9h) 

M 

2820 PRINT AT L,C;"0 M 

3000 LET M-INT < RND*21000)+10000 

3010 PRINT AT 17,7;M 

3020 PAUSE 25 

3025 PRINT AT 17,7;** 

3027 PRINT AT 0,0;"TYPE IN COMBI 
NATION" 

3028 PAUSE 75 

3029 PRINT AT 0,0;" 

99 

3030 INPUT T 

3040 IF T-M THEN GOTO 3500 
3050 IF TOM THEN GOTO 3750 
3500 PRINT AT 16,8;" 

3510 PRINT AT L,C;“ " 

3520 LET L-L+l 

3530 IF L-20 THEN GOTO 3545 

3535 PRINT AT L,C; n O" 

3540 GOTO 3510 

3545 PRINT AT L,C;"tio>" 

3546 PAUSE 100 

3550 CLS 

3551 FOR F-l TO 21 

3552 PRINT "<32*i£>" 

3553 NEXT F 

3554 PAUSE 100 

3555 CLS 

3558 LET K-INT <RND*5O0>+100 
3560 PRINT "WELL DONE.YOU HAVE 0 
PENED THE VAULT AND ARE A VERY 
RICH PERSON" 

3565 PRINT "YOU SCORED ";K*100;" 
POINTS" 

3570 LET S«S+<K*100> 

3575 PRINT score ";S 
3578 PAUSE 100 
3580 IF S>HS THEN GOTO 4805 
3585 IF S<HS THEN PRINT ,,"PRESS 
N/L FOR ANOTHER GO." 

3590 IF INKEY*-"" THEN GOTO 3590 
3595 CLS 
3600 GOTO 5 

3750 PRINT AT L,Ci"<X*>" 

3770 PRINT AT 15,7;"->";AT 15,10 

; "<*" 

3780 PRINT AT 17,7;M 
3790 PAUSE 150 
3800 CLS 

3810 PRINT "YOU HAVE BEEN STABBE 
D BY TWO PIKES.WHAT A PITY YO 
U WERE" 

3820 PRINT "SO CLOSE TO THE £108 
, 000 , 000 ." 

3830 PRINT "NEVER MIND." 

3840 PRINT ,,"score “;S 

3841 PAUSE 150 

3842 IF S<HS AND U<PL THEN GOTO 
3850 

3844 IF S>HS THEN GOTO 4005 
3846 IF W-PL THEN GOTO 6000 


3850 PRINT PRESS N/L FOR NEXT 
PLAYER" 

3860 IF INKEY*-"" THEN GOTO 3860 
3870 CLS 
3872 NEXT U 
3880 GOTO 8 

4005 CLS 

4006 IF S>HS THEN LET HS-S 

4008 PRINT "YOU HAVE THE HIGH SC 
ORE" 

4010 PRINT "INPUT NAME <1 TO 12 
LETTERS >" 

4015 INPUT N* 

4020 IF LEN N*>12 THEN GOTO 4005 

4025 IF LEN N*<«12 THEN GOTO 402 
6 

4026 PRINT ,,N* 

402? PRINT ,,"INPUT AGE" 

4028 INPUT AG 

4029 PRINT ,,AG 

4031 PRINT ,,"0K? <Y/N)" 

4032 PAUSE 20 

4033 INPUT I* 

4034 IF I#-"Y" THEN GOTO 4036 

4035 IF I*-"N" THEN GOTO 4005 

4036 IF W<PL THEN GOTO 4040 
403? IF W-PL THEN GOTO 6000 
4040 PRINT ,,"PRESS N/L FOR NEXT 

PLAYER" 

4045 IF INKEY*-"" THEN GOTO 4045 
4050 CLS 
4052 NEXT W 
4055 GOTO 8 

580B PRINT AT 0,4;"<4*isP-3*sP 4 
*i*P 3*sP 4*xsP'3*sP '3*isP >" 

5010 PRINT AT 1,4,"cisP• 6*sP•isP 
2*sP xsP 3*sP * isp 2*sP • isP -4*sP 
■ ISP v 

5020 PRINT AT 2,4;■•<2*isP»5*sP*i 
sP -2*sP ■ isP • 3*sp 4*xsP 4*sP - isp > 

M 

5030 PRINT AT 3,4;"<isP•6*sP•isP 
•2*sP isP 3*sP•isP-sP•isP'5 *sp *l 
sP >■ 

5040 PRINT AT 4,4; *'< isP • 6*sP 4*x 
sp 3*sP■isP -sP ' isP '5*sp’ isP >" 
5050 PRINT AT 7,2; '•< isP ■ 2*sP - isP 
>4tsP xsP'3*sP • isP ! 3*sP ■ 4VxsP '3# 
sP • isP -3*sP -• isP )" 

5060 PRINT AT 8,2;"<isP sP'xsP-5 
*sP 2 * xsP•2*sP-isP-3*sP'isP-2*sP 
! isP'4*sP•isP sp• isP >" 

5070 PRINT AT 9,2; *'< 2*xsP ' 6*sP ' l 
sP• sp• isP ! sP *isP 3*sP•isP•2*sP sl 
sP•5*SP•isP y 

5080 PRINT AT 10,2;"<isP sp< isP• 
5*sP■xsP'2 *sp' 2*xsP'3*sP•isP’2*s 
P ■ xsP 4#sP • XSP ' SP ' xsP )" 

5090 PRINT AT 11,2;"<isP•2*aP•xs 
P 4*aP-isP'3*sP•xsP 1 3*sP 1 4#xsP 1 3 
*sP isP' 3*SP « xsP y 

5100 PRINT AT 14,9;"<3*xsP ■ 2*sP * 
3*isP y 

5101 PRINT AT 15,9;"<sP'xsP '4*sP 

• xsP >■ 

5102 PRINT AT 16,9;"<sP'xsP>4*sP 

• XSP >" 

5103 PRINT AT 17,9;"<sP•isP■4*sP 
! x sp >- 

5104 PRINT AT 18,9;"<3*isP=2*sP• 
3*xsP >" 

5106 FOR F-l TO 3 

5107 PRINT " BOLDIE SOFT 

WARE 

5108 NEXT F 

5109 PAUSE 150 

5110 CLS 
5150 RETURN 
6000 CLS 

6010 PRINT "WELL DONE ";N* 

6011 PRINT " YOU SCORE 

D THE MOST POINTS AND HAVE WON 
THE GAME." 

6012 PRINT "YOU SCORED ";H3 
6020 PRINT ,,"PRESS N/L TO HAVE 
ANOTHER GO" 

6030 IF INKEY*-"" THEN GOTO 6030 
6040 CLS 
6050 GOTO 5 
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M OVE YOUR CAR along ihe 
road, steering left with 8 and 
right with 0. Do not crash into 
the side of the road or you will lose one 
of your two lives. Run over bags of 
money to gain extra points. A change in 
the colour of the road will be heralded 
by a small bleeping sound and each time 
the road colour changes it will also 
become narrower. 

Driver was written for the 16K 
Spectrum by Colin Bird of Blackpool, 
Lancashire. 


1 RfcM "DRIVER" by LUl N BIRD 

3 PAPER O' CuRDER O INK ? 

4 LET t-2 CO 'Slit .?3U CO SUL 

sou 

3 LET r*-"bb_ bb" 

6 LET jl-J 

7 LET s-0 

10 ruR n-0 TO 20' PRINT "C32*i 
9 fe..v NEXT n- PRiNT ■ ’hhbhht.c njfi 
a.8>hbhbbbbbbbbfobbbb" 

-0 LEI ri-3 
30 TOR 9-0 TO LOO 
40 LET s-s+t 

SO IF RND>.3 THEN PRINT flT !NT 
120. INT < RNDT30 >; INK. 7; INVERSE 
1 ; "h" 

60 IF RND>.0 1HLN PRINT NT I NT 
20,ri+lNT < RND*4 INK 6; iNVLR 
SE 1; M c" 

70 IF 9M00 THEN BEEP .1,1 BE 
HP .1,2 DEEP .1,3 BEEP . 1,1 • I 
Nk 6■ LET r~S-"bb bb" 

00 IF 9-250 THEN BEEP .1.1 f;E 
EP .1,2 BEEP .1,2 BEEP .l, l 0 
INK 3- LET r*-"hb bb" 

90 IF 9-400 THEN BEEP .1,-10 
BEEP .1,-3- BEEP .1,-6 BEEP .l. 
-10« INK 6‘ l.EI r*— "bb bb" 

100 IF 9-550 THEN BEEP .1,0 BE 
Er .1,-10 BEEP .1,0 BEEP .1,-1 
0 INK S' LET r*-"2ib. bb " 

110 IF 9-7O0 THEN BEEP .1,0 BE 
EP .1,10 BEEP .1,-10 BEEP . 1,- 
10 INK S' LET rS="bb bb" 

120 LET lNkEY*-"0" «-C INKEY 

$?; "J?" > 

130 BEEP .003,0- BLIP .002,1 

140 PUKE 32692,333 

130 PRINT AT 21,31;" " 

160 IF rl>-10 THEN LET rl-lO 
i 70 IF rl<M THEN LET rl~l 
100 PRINT NT 21, r 1; IWER 2: IN 

VERSE l > r* 

130 PRINT AT 0,j- INVERSE 1;"3" 
2O0 LET r1=r1+iNT <RND*3> LET 
r-i-rl—INT <RHD*3> 

210 IT HTTP MO.3 -6 THEN BEEP 
.2,10- BEEP .1,-10 BEEP . 1 , 0 - L 
ET s-s*30 PRINT NT lO,a; M «" 

220 IF SCREEN* < 10-3.V.''" " THEN 
CO SUB 230 

230 NEXT 9- CLS FUR n-0 TO 10 
BEEP .1,1 NT <RNtv*60 > NEXT vr 
CU TO !0 
240 STOP 

230 LET 1=1-1- FOR n-0 TO 3- BE 
EP .2,-10- PRINT AT 10,3, FLASH 
1;"b"• BEEP .2,-1 PRINT-AT 10 ,3 
; FLASH l; "a’ 1 ’ NEXT « 

260 IF IM THEN CO SUB 290 NEX 
T 9 

270 IF l<-0 THEN CLS * BEEP .61 
,—10 1 PRINT AT 10,lo;"NO LIVES L 
EFT";AT 13,10;"SCORE- - PRINT 
AT 21,0; FLASH 1; "ANY KEY T(J CO 
NTINUB"- IF INKEYS-"" THEN PAUSE 
O- PAUSE 10- RON 
2O0 LET rl-5- INK 7 FOR r»-0 TO 
20 : PRINT "< 02 * 193 > H NEXT n P 
PINT "bbhbbtk 1 0* lo^bbbbbbbbbbbb 

bbbb " - 

290 RETURN 

SOU FOR t'-0 TO 1 

OlO FOR n-4 TO 7 INK n 

320 BEEP . 02, n+ri 

530 PRINT AT O,13;"DRIVER";AT ’ 

, 12 ; "ccrccccr" 

340 PRINT You Must drive 3 

l<vn9 the road for as lonO as P 
ossible without hittin9 the r.>rK 
s < b >, a nd a I so cc 11 gc.1 i n9 the b 
39s of mov.es for extra Point's 

M 

350 PRINT Vo., bsve ov.l^ 2 li 
ves" 

360 PRINT ’' FLASH 1 "KEY- ri 
ASH 0;" '3' is left,"'" '0' is r 

i9ht." 

370 NEXT V NEXT f 

3S0 PRINT AT .-*1.10; FLASH 1; "AN 


Y KEY TO START" IF INKEY*-"" TH 
EN CO TO 330 
385 CLS - RETURN 
290 POP 1-1 TO ? READ a* TOP 
n-’i TO 7 READ a POKE USR 3*+v., 

3 NEXT r. NEXT 4 
400 CLS - RETURN 

410 DATA " a ', 44. 1 13. 22*3, 247,239 
,247,110,32,"b".14,126,94,127.73 
2 .127 90 , CO • " r " 126 . 0 , 0 , 1 ' V :, 21 9. 1 

4 ;,223.19b,126 

426 CLS • PRINT AT 10.10. FLASH 
l; "STOP THE TAPE" • PAUSF 200 R 
IJK 

300 SAVE "DRIVER" LINL 420 


12 
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C ONSTELLATIONS is an edu- six constellations on the screen and of north London. All asterisks in the 

cational program for the 16K could be modified to include many program should be entered in the in- 
ZX-81. It will display any one of more. It was written by Zoe O’Sullivan verse mode. 


10 

PRINT "SOME STAR 

MAPS" 


"*";AT 11,12;"*";AT 10,10;"*";RT 

20 

PRINT 



7,15; "t ";AT 5,17;"*";RT 4,20;"* 

30 

PRINT "1=THE PLOUGH" 


ii 

31 

PRINT "2=0ASSIOPEIA " 


160 PRINT TAB 1;"URSA MINOR" 

32 

PRINT "3=URSA MINOR" 


170 STOP 

33 

PRINT "4=*CEPHEU3 1 

1 


120 GOSUB 1-000 

24 

PRINT -^BOOTES- 



190* PRINT AT 2,8;"*";AT 12,14;" 

3b 

PRINT "6=*LE0" 



*";AT 4,17;"*";AT 8,22;"*";AT 11 

40 

INPUT R 



,21;"*";AT 14,20;"*";AT 15,20;"* 

45 

PAUSE 150 



-;AT i5,19;"*" 

46 

CLS 



200 PRINT TAB 1;"CEPHEU3" 

50 

IF fi*l THEN GOTO 

60 


210 STOP 

51 

IF A=2 THEN GOTO 

100 


220 GOSUB 1000 

52 

IF B=3 THEN GOTO 

140 


230 PRINT AT 3,10;"*";AT 4,14;" 

53 

IF A=4 THEN GOTO 

180 


*-;AT 13,12;"*";AT 9,6;"*";AT 19 

54 

IF fl=5 THEN GOTO 

220 


15;"*";AT 3,19;"*";AT 13,23;"*" 

55 

IF A=6 THEN GOTO 

260 


24fi PRINT TAB 1;"BOOTES" 

60 

GOSUB 100© 



250 STOP 

70 

PRINT AT 13,6;"*' 

1 ;AT 10, 

10; 

266 GOSUB 1000 

"*";AT 10,13;"*";AT 10, 13; "*" 

; AT 

270 PRINT AT 12,6;"*";AT 11,10; 

13,21; "*" ; AT 10, 2V: "*" ; AT 6, 

26; 

"*";RT 7,10;;AT 13,20;"*";RT 

•'*" 




16,16;"*";AT 15,22;"*";AT 10,20; 

00 

PRINT TAB 1;"THE 

PLOUGH- 


"*";RT 3,17;"*";AT 5,17;"*";AT 2 

90 

STOP 



,21;"*";AT 4,2;"*" 

100 

GOSUB 1000 



280 PRINT TAB 1;"LEO" 

1 10 

PRINT AT 4,10;"*' 

';AT 8,11 j - 

298 STOP 

*";AT 9, 14;"*";RT 13, 

15; "*";flT 1 

) 0G0 FOR N-1 TO 22 

2, 19. 

; "*" 



10O5 FAST 

120 

PR I NT TAB 1; " CASS I OPE IA 11 


1010 PRINT 

1890 NEXT N 

130 

STOP 



140 

GOSUB 1000 



1025 SLOB 

150 

PRINT AT 15,9;"* 1 

";AT 15, 

12; 

1030 RETURN 



24 
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Y OU ARE pursued by three deter¬ 
mined ghosts whose single aim in 
death is to catch and kill you. 
Move around the screen with the usual 
cursor keys, avoiding your trail, the 
walls, and splurge patches. If necessary, 
use key “0” to go into hyperspace. 

Chaser was written by Andrew Dol- 
lochan for the 16K ZX-81. 


1 LET HS-© 

3 LET T=0 

4 GU5UB 20UO 
3 LET L«3 

C CLS 

7 GOSUB 4&0 

e cosub =.oo 

9 LET 3=0 
10 LET X=10 
20 LET 0=13 
30 PRINT AT X,A; 

41 IF PEEK < PEEK 16398+256*PEE 
K 16399>136 THEN GOTO 140 

42 IF PEEK < PEEK 16398+256*PEE 
K 16339>=128 THEN GOTO 140 

43 IF PEEK < PEEK 16333+256*PEE 
K 16399)-13 THEN COSUB 371 

44 IF PEEK <PEEK 16338+256*PEE 
K 16399>178 THEN C0SU8 14u 

45 PRINT 

4? LET T-T+l 

48 IF INKEYS="0" OR INEEYS-" 1 " 
THEN GOSUB 921 

49 IF INKEY*-"6" THEN GOSUB 60 


0 


0 


50 IF INKEY*’ 


n *7 i< 


THEN GOSUB 70 


O 


0 


60 IF INKEYS""8" THEN GOSUB SO 
70 IF INKEYS—"5" THEN GOSUB 30 

7“ PRINT AT Y/Zj" m" 

76 PRINT AT Y1.21;*«" 

77 PRINT AT Y2,Z2;"m" 

81 PRINT AT INT <RNDT19+1>,INT 
<RND*29+1 

121 LET Y*Y—< X<Y >+< X>Y > 

122 LET 2*2-< fl<2 >+< A>2) 

123 LET Y1«Y1-<X<Y1>+<X>Yl> 

124 LET 21 =21 -< A< 21 X A >21 > 

125 LET Y2~Y2-< X<Y2)+< X>Y2) 

126 LET 22=22-< A<22 >+C A>22 > 

130 GOTO 30 

140 LET L-L-l 
153 FUR B=6 TO 15 
160 PRINT AT X,A; 

180 PRINT AT X/A; "<Ov v- 
200 PRINT AT X,A>"<9t>" 

220 PRINT AT X, A; "<3* >■• 

230 NEXT B 

231 IF L<l THEN GOSUB 1800 
240 GOTO 6 

400 REM SET UP BOARD 
410 CLS 

420 PRIHT "<32»i-ep 

430 PRINT AT 21/0 - "<32*isf* •" 

440 FOR 2-0 TO 21 
450 PRINT AT 2,Q;"<isPV;flT 2,3 
1 ;"< isp >" 

460 NEXT 2 

461 PRINT AT RND*20,RND*30; 

462 PRINT AT RND*20,RNOT30 } "9" 

463 PRINT AT RNt‘t28,RND*30; "S" 

464 PRINT AT RND*20* RNDV3&; "S’* 

465 PRINT AT RND*20/RND*30;"t" 
470 RETURN 

50O LET Y=20 
310 LET 2=1 
520 LET Y1=20 
530 LET 21-30 
540 LET Y2=l 
550 LET 22-30 
560 RETURN 
60O LET X=X+1 

610 PRINT AT X-l.Ai"<i*P>" 

615 LET S-S+10 
620 RETURN 
7O0 LET X-X-l 

710 PRINT AT X+l/A;"<isP >" 
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715 LET S«S*18 

720 RETURN _ . . _ 

990 LET fi=A+l 

610 PRINT RT X/fl-1 ;"<isp >" 

815 LET S=S+10 
820 RETURN 
900 LET R=R-1 

910 PRINT RT X,fi+1;"<isP>" 

915 LET S-S+10 

920 RETURN 

921 FOR F-0 TO 10 

920 PRINT RT X,R;-<i+>" 

931 FOR L-0 TO 2 

932 NEXT G 

933 PRINT RT X,R; 

934 NEXT F 

940 LET X-INT < RNDT19+I> 

950 LET R~INT <RND*29+l> 

959 PRINT RT X,A;" " 

960 PRINT RT X,A;"*" 

961 LET 8=3-20 

970 RETURN 

971 LET S-S+10O 

972 FOR R-0 TO 5 

973 PRINT RT X,fl; 

974 FOR B-0 TO 2 

975 NEXT e 

976 PRINT RT 

977 NEXT R 
979 RETURN 

1000 REN GflNE OVER 
1010 CLS 

1020 PRINT "YOUR SCORE WAS ";S 

1021 PRINT 

1022 PRINT "YOU LASTED ";T;" SEC 
ONDS" 

1030 PRINT 

1040 IF HS<S THEN LET HS=S 
1050 PRINT "THE HIGHEST SCORE IS 
"; HS 

1098 PRINT RT 15.0;"PRESS RNY KE 

Y TO PLAY" 

1180 FOR fi=0 TO 2 
1110 NEXT R 

1120 PRINT RT 15/0; "Press anv kc- 
y to Play" 

1130 FOR R=0 TO 2 
1140 NEXT R 

1150 IF INKEY*-"" THEN GOTO 1038 

1168 GOTO 5 

2008 REN INSTRUCTIONS 

2010 CLS 

2015 FOR T—0 TO 10 

2029 PRINT RT 0,13;"* CHASE *" 

2821 FOR N=0 TO 2 

2022 NEXT N 

2023 PRINT RT 0,13;" chase " 

2038 PRINT TAB 1;"PROGRAM BY ""R 
NDREW DOLLOCHRN.* 

2048 PRINT TRB 5;"AND ""IAN 1>UNL 
OP" " " 

2042 PRINT 

2065 PRINT 

2066 PRINT "YOU ARE PURSUED BY T 
HREE STUPID THOUGH DETERMINED GH 
OSTS WHOSE SINGLE RIM IN LIFE 0 
R SHOULD I SflY DEATH IS TO CflTC 
H AND KILL YOU.YOU ARC NOT ALLO 
WED TO HIT YOUR TRAIL <isP> THE 

WALLS <isP > SPLURDGE PATCHES < 
9h> BUT IF YOU HIT <*> THEN YOU 
GRIN POINTS." 

2O70 PRINT 

2880 PRINT "KEYS USED ARE ARROW 
KEYS." 

2098 PRINT "<5/6/7,G>" 

2100 PRINT "1 OR O IS HYPERSPACE 
•# 

2101 PRINT 

2102 PRINT "20 POINTS ARE TAKEN 
OFF IF YOU USE HYPERSPRCE. " 

2103 NEXT T 

2110 PRINT RT 21/0; "Press arty ke 
y to Play" 

2120 FOR R=0 TO 2 
2130 NEXT R 

21413 PRINT AT 21,0; "PRESS ANY KE 

Y TO PLAY" 

2150 FOR R-0 TO 2 
2160 NEXT R 

2170 IF INKEY*—THEN GOTO 2110 
2iS0 RETURN 


26 
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Y OU ARE a helicopter pilot, try¬ 
ing to land on a ship in a stormy 
sea. Use cursor keys 5, 6, 7 and 8 
to land on the deck. Beware, though, 
the ship finds it difficult to maintain its 
position for long and is apt to move as 
you are descending on it. When you 
have made a successful landing your 
lime will be displayed. 

Sea Landing was written for the 
16K Spectrum by Georgea Saunders of 
Stockport, Cheshire. 


1 REM By Georgea Saunde 
=> BORDER 7: rUK 0: PUPf 


2020 LET S=INT (PND*20}+5 

204-5 PRINT INK 7;RT 9,b," J" 

2050 PRINT INK 2; fiT 10, b; 

• • 

20S0 RETURN 

5000 IF RTTR (X+1,U+U =4-2 THEN G 
O TO 5100 
5005 RETURN 
5IS0 PRINT PT 10 
5110 PRINT ST 21 
u n again" 

5120 IF INKEY*<> 

120 

5130 GO TO 10 
6000 REM Udg 
5015 POKE USR "o 
6020 POKE USR "3 
6025 POKE USR "3 
6030 POKE USR "3 
6035 POKE USR "3 
604-0 POKE USR "a 
6050 POKE USR "3 
6115 POKE USR "b 
6120 POKE USR "b 
6125 POKE USR "b 
5130 POKE USR "b 
6135 POKE USR "b 
S14-0 POKE USR "b 
614-5 POKE USR "b 
6150 POKE USR "h 
5210 POKE USR "C 
6215 POKE USR "C 
6220 POKE USR ** C 
5225 POKE USR "C 
5230 POKE USR "C 
6235 POKE USR "C 
624.0 POKE USR "c 
624-5 POKE USR ”c 
5900 RETURN 


ER 5: INK 0: C 
1: PRINT INK 1 


NEXT n _ „ . _ 

1000 LET s=0: LET h$=" ♦ : LET 

Xssl: LET SUb =20: LET y=10 
1010 LET b =10 

102O PRINT PAPER 1; INK 7; BT 14- 
. 0 : "USE THE ARROU KEYS 5.6.7,8 T 

o Land the helicopter on'the dec 


40,BIN 11111111 
+1.BIN 01111111 
+2 ..BIN 00111111 
4-3 .BIN 00011111 
4-4- , B IN 00001111 
4-5,BIN 00000111 
+6,BIN 00000011 
4-0, BIN 11111111 
+1.BIN 11111110 
4-2, BIN 11111100 
+3.BIN 11111000 
4*4-, BIN 11110000 
4-5, BIN 11100000 
+6,BIN 11000000 
4-7,BIN 10000000 
40,BIN 11111111 
4-1, BIN 00011000 
+2,BIN 00111100 
+3,BIN 01111110 
44-, BIN mum 

45, BIN 11111111 

46, BIN 00O11000 
+7.BIN 00011000 
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T HE DEADLY Astral Fox¬ 
gloves hang poised above the 
earth. Their aim is to eat all 
humans and then to invade the earth. 
Save yourself by moving left and right 
with keys T and ‘2’ and firing the 
lethal fungicide with key ‘O’. 

The program was written for the 
Spectrum by I Gray of Bath, Avon. 


5 RESTORE 50 

10 FOR x-USR "a" TO USR "c"+? 
20 READ a. 

30 POKE x,*: BEEP . 1,0 NEXT x 
50 DATA 16,56,56,56-56,124,255 
84 

60 DATA O.16,16,16,56,56,124,1 
24 

?0 DATA 0,28,8,28.42,73,20,34 
100 LET s= 0 ' LET hs -0 
110 LET z=2 

510 BORDER O' PAPER O* INK 7' C 
LS 

520 PRINT AT 7,5;"1 LEFT";AT 9 
,5;"2 RIGHT";RT 11,5;"0 FIRE" 
525 PRINT 

AT 16,5;"Hit any key to start"' 
PAUSE O 

530 FOR x=-50 TO 50- BEEP .0i,x 
' NEXT x 
550 CLS 
670 LET a=l 

680 LET h*0 : LET u=h 
690 LET C“15 = LET b =c 
780 LET r»=c 
10O0 FOR y=l TO 50 
101O PLOT INK RND*7;RND*255,RNP* 
125+50 
1O20 NEXT y 

1050 PRINT AT 20,0; INK O;" 

1100 FOR y=l TO n 

1110 PRINT AT 2 ,y*2; INK 6 ;"a";A 

T 2 ,y*2+l; INK O;" "« BEEP .1,2* 

y 

1120 NEXT y 

1150 PRINT AT 0,1;"SCORE ";s-"H 
I SCORE ; hs 

1200 PLOT 0.22- DRAW 255,0 DRAW 
0,-16' DRAW -255,0 ! DRAW 0,16 
1300 PRINT AT 18,b;"b" 

1310 PRINT AT 20,jt; "c^ 

1408 BEEP .1,8' BEEP .1,6 BEEP 
.1,8- BEEP .1,6 

1450 LET u=0 = IF r >=0 THEN GO TO 
9O00 

1500 GO SUB 2000' LET h=0 

1550 IF u=l THEN GO TO 5000 

1600 IF y-19-THEN GO TO 4000 

1700 GO SUB 2100 

1800 GO SUB 3000 

1900 PRINT AT 0, 8 ;s 

1910 IF h -1 THEN PRINT AT y,x;" 

"* GO TO 1450 

1920 GO SUB 25O0 

1930 GO TO 1550 

2000 LET n-*-l 

2010 LET x-INT <RND*16>*2 

2020 IF ATTR < 2 ,x )-6 THEN LET y« 

2 - RETURN 

2025 GO SUB 3000= GO SUB 2500 

2026 IF u-1 THEN LET «-n+l * RETU 
RN 

2030 GO TO 2010 

210O PRINT AT y,x; INK O;" " 

2110 LET x=x+< RND>. 5 AND x<30>-< 
RND>.5 AND x>l > 

2120 LET y=y+l 

2130 PRINT RT y,x; INK 6 ;"a" 

2140 RETURN 

2500 PRINT AT 20, a INK O;" " 
2510 IF c>29 THEN LET a —1 
2520 IF c <2 THEN LET a=l 
2530 LET c»c+« 

2540 IF ATTP <20,c >6 THEN LET u 
= 1 


2550 PRINT AT 20,c;"c'’ 

2560 RETURN 

3O0O PRINT AT 18,b; M " 

3005 BEEP .005,b 

3010 LET b=b+<b<31 AND IN 63486= 
253 >-< b>0 RND IN 63486=254> 

3020 PRINT AT 13.b; 'J? 

3030 IF IN 614380254 THEN RET JR 
N 

3040 LET bP-b*8+4 

3045 BEEP .005,20 

3050 PLOT bP,32' DRAW 8.125-2*8 

3055 BEEP- .085,28 

306O OVER 1* PLOT bP,32 DRAW O. 

125-2*8= OVEP O 

3078 IF b=x THEN LET b=l= LET s= 
S+10 

3088 RETURN 

4080 IF ATTR <20,x>=7 THEN GO TO 
5008 

4018 PRINT AT 20,x; INK 6 ;"a" 
4020 PPTNT AT 19,x;" " 

4030 GO TO 1458 

5000 PRINT AT 19.c; INK 6;‘Va_"' P 
PINT AT y,x,- M ••' GO SUB 8000' PR 
INT AT y,x; INK 6;"a"' LET y=c 
LET y=19 

5010 PRINT AT 19,x; INK 6;"a" 


5O20 PRINT AT 20,x; INK 6 >"c^ 

5030 LET h-0 

5100 GO SUB 6OO0 

5200 IF y-z THEN GO TO 9000 

5210 GO SUB 3000 

5220 IF h -1 THEN LET r>«n+l • PR IN 

T RT y,x;" "' PRINT AT y+l,x;" " 

* GO TO 1450 

5230 GO TO 5100 

6000 PRINT RT y,x; INK 6 ;" " 

6010 PRINT RT y+ 1 ,x; INK 6 ;" " 
6020 LET x-x+<RND>.5 AND x<31>-< 
RND>.5 AND x> 0 > 

6030 LET y=y-l 

6040 PRINT AT y,x» INK 6 ;"a" 

6050 PRINT AT y+l,x; INK 6 ;"c" 
6060 RETURN 

0000 LET x-INT <RND*16>*2 
8010 IF ATTR Cz,x >-6 THEN GO SUB 
3000' GO TO 8000 
8020 LET y-z- RETURN 

9000 IF r >-0 THEN PRINT AT 6,5;"T 
HIS INVASION IS OVER"' LET s-s +1 
00- PRINT RT 8 ,5;"THE NEXT WAVE 
HAS ARRIVED"' LET z-z+1• GO TO 5 
30 

9010 IF y -2 THEN PRINT AT 6,5;"Y 
OU HAVE BEEN SNATCHED" 

9020 BEEP .5,4' BEEP .5,8' BEEP 
.5,0 

9030 IF hs<s THEN LET hs-s« PRIN 
T FLASH 1;AT 8,5;"A NEW HIGH SCO 
RE" 

9040 PRINT AT 10,5;"HI SCORE 
";hs 

9050 PRINT RT 12,5;"YOUR SCORE 

";s 

9055 BEEP .5,4' BEEP .5,8* BEEP 
.5,0 

9056 LET z-2' LET s-0 
9860 PAUSE 10' GO TO 525 


& ,v 




Jr- 
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PIPELINE 


1 REM 

2 REM 

3 REM ©PR LUCKETT(1983) 

4- REM 

5 REM 

10 PRINT fiT 0.. 12; "PIPELINE" 

2© PRINT RT 2,B;"RIM »S bU5t S 

ach tj-u to finish the Pipeline 
by playing into theupper right f 
ield;or to foi~c& our opponent 
off the board” 

30 PRINT RT 7,3;"RULES 33plaue 
rs alternate isovea b> ea-h »ove 
iaust extend the pipeline in t 
o an adjacent field*' 

4-0 PRINT RT 12,0; "I UILL LET Y 
OU CHOOSE " "PLAY DR£>ER"" (1=Y 

OU FIRST, 2=HE FIRST.' ” 

5© PRINT RT 14,0;"YOU CRN RLSO 
PICK "“PLAY LEUEL"** (1=BEGINNE 
R , 2=RD , v l fi.NCED) BUT BE CAREFUL UI 
TH LEUEL 2 ! ‘ I'M VERY GOOD« ! ! ! i 

S© PRINT PT 21,0;"PRESS ANY KE 
Y TO CONTINUE" 

999 IF INKEY$="** THEN GO TO 999 
1000 CLS : PAUSE 50 

1301 DIM d (4 , 3J : DIM e (13,133 

1302 RESTORE 9000: FOR i=1 TO 4: 
FOR J=2 TO 3 

10G3 READ d( i,J3: NEXT J; NEXT i 
2S0S BORDER 5 

1010 PRINT INK 3; INVERSE l;"PXP 
ELINE”: INPUT "PLAY ORDER ClOf2) 

**, po ; "PLAY LEUEL tlorS) **; p i; 

20 2 2 PRINT INK 5; INVERSE 1; AT © 
,24; “RDVfiNCED** 

2012 IF Pl=1 THEN PRINT INK 3; I 
NVERSE 1;AT 0,24;“BEGINNER" 

2013 PRINT INK 4;AT 16,26; INUER 
SE l;"PLEASE” 

1024 PRINT INK 4;AT 19,26; INUER 
SE l;"UAIT 

1015 PRINT INK 4;AT 20,26; INUER 
SE l;"FOR 

1016 PRINT INK 4;AT 21,26; INUER 
SE l;"PROMPT" 

1020 PLOT 49,0: DRAW 157,0: DRAW 
0,157: DRAU -157,0: DRAW 0,-157 
1030 LET nn=12+(plopo) : LET lw = 
4+ (PIOPO) : LET bd =22 t(p l =p O 3 
2040 LET JJ=1: LET ii=2 
1050 GO SUB 2000 

2060 LET n=(nn-l): LET hs=nn*(bd 
-13 

2061 PLOT 50-frhS,hS+l: DRAU ®,n: 
DRAU n ,0 DRAU z, -n : DRAU - r>,0 
2070 PRINT INK 1; INVERSE 1; AT 2 
,0;"PLAY 1" 

1060 LET J J =bd —2: LET ii=-2: GO 
SUB 2000 

1090 PRINT INK 1; INVERSE 1;AT S 
,0;"PLAY 2" 


T HIS ISSUE features the start of a 
new feature in Sinclair Programs. 
To celebrate our new monthly 
appearance we have decided to inaugu¬ 
rate a Program of the Month. 

The first worthy winner of the covet¬ 
ed award is P R Luckett of Hammer¬ 
smith, London, with his enthralling, 
original and altogether outstanding 
brain game. Pipeline, for the 48K 
Spectrum. 

Luckett works at the European Pat¬ 
ent Office in Munich, examining appli¬ 
cations on digital signalling techniques; 
his mathematical bias is apparent in the 


five strategies he has managed to build 
into the computer play. 

He has owned a Spectrum only since 
Christmas, after eight computerless 
years, and feels this listing could doubt¬ 
less be made more elegant, particularly 
in the resolution of the data lines into 
their mathematical bases. 

The ability to follow winning math¬ 
ematical strategies, Luckett feels, gives 
the computer an unassailable advantage 
in this type of game. 

Pipeline casts you as an unprincipled 
pipe-laying engineer. You are shown 
the playing area and the choice of three 





















a 



move =1 


LET 


iii*i -1> J jJ: DRflU 
iii+i-1,jjj+ltf+4: 


0,4- 

DRRU 


1100 LET jj=7: GO SUB 4-000 
1110 PRINT INK l; INVERSE l;flT 1 
5,0;"PLRY 3" 

112© LET jj =2: GO SUB 6000 
1130 LET ii=1: LET JJ =1 
1140 DIM b(15,15) 

1150 FOR i=1 TO bd+2: FOR j=l TO 
bd +2 

116© LET bii , j) =-(i=l> -(j=l)-li = 
bd+2) -( j =bd +-2> 

1170 NEXT j: NEXT i 

1175 INPUT ,, 50LO?(y=yes f n=no)";s 
$ 

1160 LET 6(2,2)=!: LET i»OVe=l 
11S0 LET »ove=iBOve+l 
1500 IF fPO =1 RND (aove/2 = INT (a 
ove/2))) OR Cpo=2 AND liaove/2ol 
NT (aove/2))) THEN GO TO 3G0© 
1520 GO TO 5000 

1999 STOP 

2010 LET i i i =nn* tii -1) +50: LET j 
j J =r> nt ( j j-l) -+1 
2020 FOR i=1 TO 4 

2030 PLOT i i i 4-i -1, j j J ; DRRU 0,4 
2040 PLOT iii+i—1,Jjj+lw+4: DRfiU 
0,4 

2050 PLOT i i i 4-1W 4-3 + i , j j j : DRfiU 0 
/ 4 

2000 PLOT iii+Lu+3+i,jjj+lw+4: D 
RRU 0,4 

2070 NEXT i 
3060 RETURN 

52®S £ *="y" THEN GO TO 3091 

o010 IF pi=2 THEN GO TO S000 
3020 IF move 02 THEN GO TO 3060 
3030 LET i i =1 + CRND > 0- 5) : LET J J = 
3-i i _ 

3050 LET eg =3-2 * < j j =2) 

3060 LET p lay= ( (ii=1) *(eg=4) + (ii 
= hd) * (eg =3) + (j j =1) * teg =2) +- ( j j =bd 
)*(eg=D) *(2+ (RND <0.5) ) 4- ( (i i =1) * 
(eg=l)+(JJ=l)*(eg=3)+iii=bd)*(eg 
= 2) + ( JJ=bd> * (eg =4) ) * C1-+ (RND < 0.5) 

- t*iLi =*> * 9=2) + (J J=l) f leg=4)+( 

1 + < J J =bd ) * (eg =3) ) * (l 

+ 2* (RND <©.5) ) 

3070 IF (ii Ol) AND (iiobd) AND 
jjOl RNP jjobd THEN LET piau = 
INT (1-+RND*2.999) 

30S0 GO SUB 7000 

3090 GO TO 1190 

3091 INPUT -MY PLAY(l,2or3) ” ; pla 


JJJ: DRfiU 


INT 
3030 

3090 

3091 

y 

3092 IF BOVe 02 THEN GO TO 308 

3093 LET ii=l+(RND>0.5): LET j 
3-ii: LET eg=3-2*(jJ=2) 

3094 GO TO 3080 

4010 LET iii=nn*Cii-1)+50: LET 

j j=nni (j j-l) +1 

402© FOR i=1 TO 4 

4030 PLOT iii+i-1,jjj: DRfiU nn 
, nn -i 

4040 PLOT iii+i-1,jjj+nn: DRfiU 


AND 
lay = 


P la 


TO 3080 
LET JJ: 


LET 


nn -i 


i + li»+3+i 
— (nn —5 4-i 


JJJ +nn: DRA 


-i, 1-i 

4050 PLOT i i i 4-1 hJ + 3 + i , JJJ: DRRU 4 
-i , 4-i 

4060 PLOT i i i 4-1W 4-3 4-i , j j j +nn : DRA 
U - (nn-5+i ) , —(nn—5 + i) 

4070 NEXT i 
4080 RETURN 

5001 IF move 02 THEN GO TO 5015 

5002 INPUT "p lay right (O or up ( 
u) r $; 

5003 LET ii=2 

5004 IF r$="U" THEN LET ii=1 
5305 LET J J =3 —ii 

5010 LET e g =3 -2 3 + ( J J =2 ) 

5015 INPUT -YOUR PLAY(1,2or3)”;p 
'-3y 

5320 GQ SUB 703Q 
5999 GO TO 1190 

5010 LET iii=nni(ii-l)+50: LET J 

jj=nrti (J j-l) +1 

6020 FOR i=1 TO 4 


02 THEN GO TO 5015 
play right(r) or up( 


LET 


6030 PL 
i -1 

6040 PL 
nn-i) . - 
6050 PL 
-nn-i, - 
6060 PL 
U 4-i , i 
6070 NE 
5080 RE 
7010 LE 
7020 GO 
7030 LE 
7040 LE 

705O LE 
7360 IF 
O 715S 
7070 IF 


PLOT 


+i-l,JJJ: DRfiU 1-i 


JJJ 


jjj+nn: DRA 


PLOT iii+i-1,jjj+nn: DRfiU 
. - (nn -i ) 

PLOT iii+lto+3+i,jjj: DR 
, -(5-on - i) 

PLOT i i i + lw+3+i .jjj+nn: 

^ i -4 
NEXT i 
RETURN 

LET b(jj+l,ii+1)=play 
GO SUB 2000+play 
LET eg=d (eg,P lay) 
let jj=jj + ieg=i) - (eg = 2 ) 
LET ii=ii+(eg=3)-(eg=4) 

IF b(JJ4-2,ii+1)=0 THEN 


DRfiU 


THEN 


b(JJ+-l,ii +1) 


THEN 


O 7100 . 

7080 LET piay=b(jj+l,ii+1) 

7O90 GO TO 7030 

7100 IF (((move/2)=lNT (BOVe/2)) 
RND (po=l)) DR <»ovex2 OINT imo 
ye/2) RND po=2) THEN GO TO 7130 
7110 PRINT INK 2;fiT 1,9; FLASH 1 
;-SfiD LUCK-YOU LOST" 

7120 GO TO 7500 

713© PRINT INK ±;«T 1,9; FLA5H 1 
;-WELL DONE-YOU WIN- 
7240 GO TO 7500 

7150 IF jjobd OR iiobd THEN RE 
TURN 

7160 IF f ( (iove/2) =INT (ioove/2) > 
RND (po=l)) DR (move x2o INT (roo 
ve/2) RND po=2) THEN GO TO 7130 
7170 GO TO 7110 

7500 INPUT "LIKE ANOTHER GO?(yes 
=y , n o =n > "; r 4 

7505 IF r $ = ”n" THEN STOP 

7510 CLS 

7520 GO TO 101© 

8000 IF aoVe =2 THEN GO TO SlOO 




types of tiles which you can use to 
continue the pipe. Each tile is traversed 
by two white lines and a sharp eye must 
be kept to trace the twisting path of the 
pipe as it coils and flexes across the 
board. 

The winner is the one who plays into 
the top right-hand corner of the screen, 


or who forces an opponent to play into 
the side of the board. Play against 
another Sinclair programmer or against 
the Grand Master Spectrum, which we 
have not yet beaten at advanced level. 

An astounding listing. Congratula¬ 
tions to our cunning author and good 
luck to our fortunate readers—you will 
love this one. (48K Spectrum). 
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Is 


1 3010 IF wove 03 AND wove <>4- THEN 
GO TO 0070 

9301 

1 

DPTP 

1,1,1,1,1,1,1,1,1,1,1, 


1 f e 3 l =ci 

»302 

DPTP 

2,4,2,2,2,2,2,2,2>c>2, 

> +200* i b( 3 

. 3J =3> 

2 



3030 

IF move=3 THEN LET rest=91© 

9303 

DPTP 

1,2,1,1,1,1,1,1,1,1, 1, 

0+100* (b(3,2) =0> 

1 



3O4-0 

RESTORE rest 

9304 

DPTP 

2,1,2,2,2,2,2,2.2,2,2, 

3050 

FOR i 

=1 TO bd; FOR j=l TO b 

2 



d 

305O 

READ 

eCi.JJ: NEXT .i : NEXT ; 

93es 

1 

DPTP 

1,2,1,1,1,1,1,1,1,1,1, 

8O70 

LET play=l 

9305 

DPTP 

2,1,2,2,2,2,2,2,2 ,2.2. 

3030 

if d (eg ,p lay) =e fJJ.ii.* then 

2 



GO TO Silo 

3337 

DPTP 

1,2,1,1,1,1,1,1,11^ 

3090 

LET Play=Play+l; GO TO 3OS0 

1 



3100 

LET i 

i =1: LET j.i=2: LET eg = 

930© 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

1: LET Play=2 




3110 

GO SUB 7000 

3309 

DPTP 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

3120 

GO TO 

1190 

1 



9000 

1 

DRTfl 

1.3.4.2/4.3.3/1.2.4.2/ 

9310 

2 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

9100 

1.1 

DfiTR 

l.l.l.l, 1.1.1.1.1.1.1. 

5311 

L 

DPTP 

1.2,0.4,3.4,3,4,3,4,3, 

9101 

2.2 

DRTR 

2.2 / 2.2.2 / 2/2.2.2.2,2, 

9312 

3 

DPTP 

2,3,4,3,4,3,4,3,4,3,4, 

9102 

DftTfl 

1.1,1.1,1.1.1.1,1.1,1, 

9401 

DPTP 

1.1.3,4,3,4,3,4,3,4,3, 

— X 

9103 

2,2 

OflTfl 

2,2,2,2,2,2,2,2,2,2,2, 

94e2 

1 

DPTP 

2,1,4,3,4,3,4,3,4,3,4, 

9104- 

1.1 

DRTR 

1 ..1 ,.l ..1 ,.1 ..1 ..1 ^1 ^1 ..1 ..1 

9403 

2 

DATA 

1,1,1,1,1,1,1,1,1,1,1, 

9105 

DRTR 

2.2,2,2,2,2,2,2,2,2,2, 

9404. 

DPTP 

2,2,2,2,2,2,2,2,2,2,2, 

^ s *=• 

9106 

1.1 

DRTR 

1,1,1,1,1,1,1.1,1,1,1, 

1 

94e5 

2 

DPTP 

1,1,1,1,1,1,1,1,1,1,1, 

9107 
3.2 

DRTR 

2,2,2,2,2,2,2,2,2,2,2, 

3406 

1 

DPTP 

2,2,2,2,2,2,2,2,2,2,2, 

9103 
1.1 

DRTfl 

1.1,1,1,1,1,1,1,1,1,1, 

9437 

o 

DPTP 

1-1,1,1,1,1,1,1,1,1,1, 

9109 
2.2 

DRTR 

2.2,2,2,2,2,2,2,2,2,2, 

04-^3 

OPT P 

a,a,a,a,a ,a,a ,a.a,a,a. 

9110 

1.1 

DPT R 

1,1,1,1,1,1,1,1,1,1,1, 

9409 

3 

DPTP 

1,1,1,1,1,1,1,1,1,1,1, 

9111 

2; 2 

DRTR 

2,2,2,2,2,2,2,2,2,2,2 , 

9410 

1 

DPTP 

2,2,2,2,2,2,2,2,2,2,2, 

9112 
4-, 3 

DPTR 

3,4,3,4-,3,4-, 3,4-,3,4-,3, 

9411 

2 

DPTP 

1,1,1,1,1,1,1,1,1,1,1, 

9201 
4- , 1 

DATA 

3,4,3,4,3,4,3,4,3,4,3, 

34 12 
1 

DPTP 

2,2,2,2,3, 2.2,2, 2,2,2, 

9202 

DhTw 

3,4,3,4,3,4,3,4,3,4,3, 

9501 

DPTP 

1.^.4,1,1,1,1,1,1,1,1, 

1.2 



1 



3203 
4- * 1 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9502 

2 

DPTP 

1,4,2,2,2,2,2,2,2,2, 

9204- 
4-.2 

DPTP 

3,4 , "3,4,3,4,3,4,3,4,3 , 

3503 

DPTP 

1,2,1,1,1,1,1,1,1,1,1, 

9905 
4-, 1 

DPTP 

3,4,3,4.3.4,3, 4,3.4,3, 

3504 

o 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

4.2 

OflTfl. 

3,4,3,4,3,4,3,4,3,4,3, 

9505 

1 

DRTR 

1 2 , 1,1,1,1,1,1,1,1,1, 

9207 

4-.1 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9506 

2 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

9203 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9507 

DRTR 

1}2,1,1,1,1,1,1,1,1,1, 

1.2 



1 


3209 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9506 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

4-.1 



2 



9210 
4 ,2 

DPTP 

3.4,3,4,3,4,3,4,3,4,3, 

9509 

1 

DPTP 

1,2,1,1,1,1,1,1,1,1,1, 

9211 

4.1 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9510 

2 

DPTP 

2,1,2,2,2,2,2,2,2,2,2, 

9212 
4-, 2 

DRTR 

3,4,3,4,3,4,3,4,3,4,3, 

9511 

4 

DRTR 

1.2. 3, 4,3,4,3,4,3,4,3, 

9213 

4-.1 

DPTP 

3,4,3,4,3,4,3,4,3,4,3, 

9512 

3 

DPTP 

2,3,4,3,4,3,4,3,4,3,4, 
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D ODGE the coloured squares 
and avoid crossing your own 
trail. A familiar game but ex¬ 
tremely well-written. Colourful graph¬ 
ics and fast-moving characters are all 


packed into around 2K of memory. The programs for the 16K or 48K Spectrum 
speed is so fast that on its highest level which were written by P D Loach of 
it defeated its author. Hadleigh, Suffolk. Try this program—it 

It is one of a batch of excellent is very impressive. 


5 LET hS=365: GO SUB 2000 
10 INK 0: PAPER 6: BORDER 1: C 
_S • INPUT "DIFFICULTY (1 TO 6-E 
ASIEST>"'d: IF d<l OR d>6 OR d>I 
NT d THEN BEEP 1.. 0: GO TO 10 

20 LET t=0: LET l=5: LET q =d +5 
: LET d =d / 100: FOR f =© TO 31: PR 
int AT 0,f; INK 3;"»";AT 
": IF f <22 THEN PRINT INK 3;AT f 
,0; "S"J AT 

30 NEXT f: FOR f =1 TO 4-5: PRIN 
T PAPER RND*3+1,AT RND#19+1,RND* 
29+1;- NEXT f; PRINT PAPER 3; 

INK 7; RT 0.. IB; "HIGH ";hs 
4-0 BEEP 1,0: LET 3=1: LET b=0: 

LET X —15: LET y = 10: FOR TO 

PRINT RT f ,14-; : NEXT 


13 


f 

50 LET a $ = INKEY$: IF i 
D i$<"9" THEN LET 3=vi$ = © )-ti$ 

= LET b= < i $ = "3") - < x $ = "5 ): 

BEEP - 005 . X 

60 PRINT RT 0,0; INK 7; PAPER 
3; "TIME "; t 

70 FOR f =1 TO q. NEXT f 
90 BEEP d,X: LET t=t+l: LET y = 
<4 +a : LET X = X + b : LET C =RTTR Cy,X) 

7 print at y,x;"*";BT y -a , x - b;". 
- ; if C =4-3 THEN GO TO 50 
100 LET dU=.005: FOR f=1 TO 20: 
BEEP dU.f: LET dU=dU+-003: NEXT 
f 

110 LET 1=1-1: PRINT PAPER 3;RT 
y,X; RT 21,0; PAPER 3; INK 7 

"LIVES ”;l: IF L THEN GO TO 10S 

0 


12© PRINT B0; FLASH 1; INK 2; P 
APER 6;"YOU ARE OUT OF LIUE5"; I 
F t>hs THEN PRINT AT 21,0. FLASH 
l; PAPER 3; INK 7;"HIGH SCORE": 
LET hS=t 

130 IF INKEY$ < >"" THEN GO TO 13 

0 

14-0 IF INKEY$ = "" THEN GO TO 14-0 
150 GO TO 10 

1SS0 PRINT AT 21,16; FLASH 1; IN 
K 2; PAPER 6;"HA.HA FOR y=l 

TO 20: PRINT AT Y,l; PAPER Si IN 
K 0;TAB 31;: NEXT Y; FOR Y=1TD 
15: PRINT AT RND*19+1,RND+29+1; 
PAPER RNDi5;" NEXT Y 

1010 PRINT AT 21,15; PAPER 3." 

GO TO 40 

2000 RESTORE ; FOR f=USR "p" TO 
USR "p"+7: READ a: POKE f.UAL t" 
BIN "+5TRJ 3.1 : NEXT f: DATA 1100 
0,3,111100,1011O10,1011000,1O01D 
0,3,0 

2010 BORDER 0: PAPER 0- INK 6: C 
LS 

2020 PRINT TAB 9; "DODGEMS. Yo 

u (*) must dodge your tuau thr 

ough the Maze,avoiding all obx 
t a c les & you austn't cross you 
~ path. . Move using the curso 


THEN GO TO 2B 


r Keys." 

2030 IF INKEY $ <> 

33 

204-0 IF INKEYS = " *' THEN GO TO 204 

a 

2050 RETURN 


10 


SINCLAIR PROGRAMS June 1983 
























JUST AROUND THE CORNER, A NEW 



BLACK CRYSTAL 

The Classic, six program adventure game lor the 48K Spectrum and leK ZX-81 
computers. No software collection is complete without it. 

"BLACK CRYSTAL is an excellent graphics adventure and a well thought out 
package" (Sinclair User, April ’831. 

"BLACK CRYSTAL has impressed me by its sheer quantity and generally high 
quality of presentation. 1 am alraid I have become an addict" (Home Computing 
Weekly. April ’83). 

SPECTRUM 48K 180K oi program in six parts . . . only £7.50 
ZX-81 16K over IOOK of program in seven parts . . . only £7.50 
Why pay more lor less of an adventure? 



THE ADVENTURES OF ST. BERNARD 


An exciting, last moving, machine code, arcade game where you guide your 
intrepid St. Bernard through the perils of the icy wastelands to rescue his Mistress 
from the clutches ol the abominable snowman. 48K Spectrum £5.95. 



ZX-81 COMPENDIUM 

Alien Intruder, Wumpus Adventure, Numerology, Hangman, Hieroglyphics, 
Movie Mogul. 

The ideal software package for all 16K ZX-81 owners. Six ma|or programmes on 
cassettes for only £6.50. 

"Alien Intruder Hieroglyphics — Both programs make good use of graphics and 
words to make a very entertaining package." (Sinclair User. Aug '821 

"Alien Hieroglyphics Wumpus Movie — A varied mix from Carnell, all featur¬ 
ing imaginative responses and graphics and all ol them good games for all ages 
(Hieroglyphics is particularly good for children)." (Popular Computing Weekly. 
Aug S2> 



STARFORCE ONE 


Take on the robot guardians of the central computer in a superbly stylised three 
dimensional battle game 48K Spectrum £5.95. 

<100'-.' MACHINE CODE ARCADE ACTION) 





THE CRYPT 

written by Stephen Renton 


Prepare yourself for the many challenges that shall confront you when vou date 
to enter THE CRYPT . 

You will battle with giant scorpions. Hell spawn. Craners Pos-Negs and il you 
are unlucky enough — the Dark Cyclops in this arcade style ad\enture. 

Available now for the 48K Spectrum § £4.95 



THE DEVIL RIDES IN 

I uttered the last incantations as the clock struck thirteen. All fell silent except lor 
a taint rustling in the comer. From out of the shadows they came, all Hell’s lury 
against me but I was not defenceless until the Angel Ol Death, astride a winged 
horse, joined the battle. Avoiding his bolts of hell lire, I took careful aim. My 
chances were slim, but if my luck held . . . 48K Spectrum £5.95. 

• Fast moving, machine code, all action. Arcade game) 


P * 










RANGE FROM CARNELL SOFTWARE 






COMING SOON 


Available through most good computer stores or direct from: 

Carnell Software Ltd. North Weylands Industrial Estate Molrsw Road. Hersham. Surrey KT12 3PL. 
Dealers: Contact us for your nearest wholesaler. 


-THE WRATH OF MAGRA 


The first born has been destroyed. The Black Crystal of Bvroth has been banished. 
The alliance of Evil has been defeated by the armies of Lord Fendal. So ends the 
Third Age. Now we invite you to write your name in the history of the Fourth Age 
of the Third Continent. 

You will meet friends and enemies, old and new, in the long awaited sequel to 
Volcanic Dungeon. Gsing high resolution graphics and combining the best qualities 
of Black Crystal" and "Volcanic Dungeon", wc will allow you to become part of 
this tale of revenge. 

The Wrath Of Magra" comes as three, 4BK programs on cassette, bosed with 
instruction manual and book detailing the history of the Third Continent and the 
many spells you will be using throughout the game. 

NOTE: "The Wrath Of Magra" is a complete adventure. You need not buy 
"Volcanic Dungeon" or "Black Crystal" to play it. 


CARNELL SOFTWARE LTD 



M anoeuvre your balloon 
through the minefield, using 
keys 5 to 8. Avoid the deadly 
mines. If you make contact with a mine 
you will lose one of your three lives but 
if you reach level 10 you will be award¬ 
ed an extra life. If you rescue injured 
people you will be awarded extra 
points. 

Crazy Balloon was written for the 
16K ZX-81 by Glyn Emmett of Gla¬ 
morgan. 


CRAZY 


BALLOON 


2 LET ******************" 
3 GUSUB 9000 
5 LET J*="2X8l" 

10 LET H=1000 
20 LET LI*3 
30 LET L=1 


20 LET LI=3 
30 LET L=1 
40 LET B®=" 

60 LET S-0 

61 LET BONUS 
70 LET X=20 

80 LET Y“29 

81 LET J=l5 


1000 


90 PRINT RT 0,0j"<32*9h>";fTr 2 
, 0; "<32*9h>" 

100 FOR F=1 TO 20 

110 PRINT RT F, 0;"<9h>";RT F,3l 

"< 9h ) M 

120 NEXT F 

130 PRINT RT 1,1;"1isP)BONUS.<l 
P >";RT 2,1; "<9e- isP )9o*l< isP =9r 


£p >" ; RT 2, 1; "<9e ? isP )90*l< isP 9 r 
131 LET RB=2 

140 PRINT RT 1,23;Z*< TO 8>;RT 
2,24; 2*'.-. TO 7>;RT 2,25;2*1 TO 6> 
iRT 4,26;2#< TO b);RT 5,27;Z$1 T 
0 4 >; RT 6, 28; 2*1 TO 3>;RT 7,29;2 
*1 TO 2 ); RT 8,30;Z*< TO 1) 

150 PRINT RT 20,1;291 TO 18) 

160 PRINT RT 18,10;Z*1 TO 14> 
170 PRINT RT 17,21;Z*< TO 10> 
100 PRINT RT 19,1;Z*1 TO 4>;RT 
18,1; Z*< TO 3 >; RT 17, 1;Z*< TO 2> 
190 PRINT RT 16,26;Z*< TO 5); RT 
15,27;2*1 TO 4>;RT 14,28;Z*1 TO 
3);RT 13,29;2*1 TO 2>;RT 12,30; 

z*< to i y 

200 PRINT RT 16,4;Z®1 TO 14) 

210 PRINT RT 15,1;2*1 TO 2> 

220 FOR F*=8 TO 16 

230 PRINT RT F,18;Z*1 TO 1> 


TO 1> 


240 NEXT F 
250 FOR F=lB TO 24 
260 PRINT RT 14,F; 

270 NEXT F 

271 PRINT RT 12,12;"l" 

272 PRINT RT 11,16;"i" 

273 PRINT RT 9,19;"i" 


14, F; Z®< TO 1) 


it ^ ii 


280 FOR F=1 


290 PRINT RT F,18;Z*< TO 1> 

300 NEXT F 

310 FOR F=1 TO 17 

320 PRINT RT 10,F;Z#< TO 1) 

330 NEXT F 

340 PRINT RT 11,17;2*< TO 1>;RT 
12, 16; 2*1 TO 2>;RT 13,15;Z*< TO 
3>;RT 14, 14;2$< TO 4>;RT 15,13; 
2*< TO 5> 

350 PRINT RT 3,1;Z*1 TO 1>;RT 3 
,3;2*1 TO 1> 

360 FOR F=4 TO 8 

370 PRINT RT F,10;Z*< TO 1> 

380 NEXT F 

381 LET LL=1 

391 LET X=20 

392 LET Y as 29 

393 LET J=l5 

400 PRINT RT X, Y; '*b" 

401 PRINT RT X,Yj" " 

405 LET LL=INT <RND*2>+1 

406 IF LL=2 THEN PRINT RT 10,5; 


a ^ii 

407 


IF LL=1 THEN PRINT RT 10,5; 


410 IF INKEY*-“7" THEN LET J-l 
420 IF INKEY* 3 "6" THEN LET J=3 
430 IF INKEY*- M 5" THEN LET J=4 


440 IF INKEY*="8" THEN LET J-; 


450 IF J=1 THEN LET X-X-l 
460 IF J=2 THEN LET Y-Y+l 
470 IF J*3 THEN LET X=X+1 
480 IF J=4 THEN LET Y-Y-l 
490 PRINT RT X,Y; 

500 LET 2-PEEK < PEEK 16398+256* 
PEEK 16399 > 

510 IF 2=174 THEN LET 8=3+50 

511 IF 2=23 OR 2*136 THEN GOTO 
700 

520 LET BONUS-BONUS-1 


521 PRINT RT 10,5; 


530 IF X=4 THEN IF Y>1 RND Y<8 
THEN GOTO 550 
54Q GOTO 400 
550 LET S*S+BGNUS 

560 CL3 

561 LET L=L+1 

562 IF L=10 THEN LET LI-LI+l 




m 


K 




I 




i*’:’** 




Ml 


mm 










/ 
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570 PRINT RT 10/ 10; " LEVEL * " ; L; A 
T 12/10;"LIVE3=";LI;AT 14/3;"LET 
S ATTACK" 

571 PRINT RT 16/10;"SCORE*";S 

580 PRUSE 100 

581 CLS 
590 GOTO 61 
700 LET LI-LI-1 

710 IF LI<=0 THEN GOTO 900 
720 PRUSE 50 
780 GOTO 391 
900 CLS 

910 PRINT RT 10/10;"9am* over"; 
RT 12/12;"SCORE®";S 
920 IF H>S THEN GOTO 950 
930 PRINT RT 20/0;"PLERSE ENTER 
NAME" 

948 INPUT J$ 

941 IF S>H THEN LET H-3 
950 PRINT RT 14/2;"HIGH SCORE*" 
)H 

960 PRINT RT 16/4;"BY "; J* 

970 PRUSE 500 
980 CLS 

990 PRINT "RGBIN <Y/N>?" 

991 INPUT R* 

992 IF R$=*"Y" THEN GOTO 20 

993 IF A*-"" THEN GOTO 20 
1000 STOP 

9000 CLS 

9001 PRINT TRB 8;"CRRZY BALLOON" 
9010 PRINT jj "MANOUVERE YOUR BRL 
LOON THROUGH THE MINE-FIELD.R 
VOIDING THE" 

9020 PRINT "ALWAYS PRESENT deadl 
y MINES.IF YOU MRKE CONTACT WIT 
H ONE YOU WILL LOSE ONE OF YOU 
R 3 LIVES BUT IF YOU GET TO LE 
VEL 10 YOU WILL BE AWARDED AN E 
XTRR LIFE." 

9030 PRINT 

9040 PRINT "USE KEYS:" 

9050 PRINT TRB 10;"5=LEFT";TAB 1 
0;"8=RIGHT" 

9060 PRINT TRB 10;"6-DOWN";TRB 1 
0;"7*UP" 

9070 PRINT //"BEWARE OF THE ELEC¬ 
TRIC FENCE WHICH SURROUNDS TH 
E MINE-FIELD. IF YOU RESCUE THE 
INJURED PEOPLE""!""YOU WILL GRIN 
EXTRA POINTS." 

9G90 PRINT RT 13/22; "HIT "'"3""" 
9100 PRINT RT 14/22;"TO START" 
9110 PRINT RT 13/22;" ";RT 

14/22;" 

9120 IF INKEY9K>"S" THEN GOTO 90 
90 

9130 CLS 
9140 RETURN 

999© SAVE "CRRZY BRLLuOn" 

9999 RUN 
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DIAMOND 


1 LET 0=2 

2 LET F=9 

3 LET I=b 

4 LET H=22 

5 LET G=16 

6 LET SC=8 

7 CLS 

6 PRINT RT O/O; “<.32*isP 
9 PRINT R1 £i,0; M c 32*i spy 
iti» FOR R=1 TU 2U 

11 PRINT RT Fi; 0; "< isP >**; RT R;3 
1; "<isP >" 

12 NEXT R 

13 PRINT RT 4;24;"<i<‘i*'i>>" 

14 PRINT RT 17,lj"<9e‘3*97’9r* 
SP • 9e • 3*9? : 9r • SP = 9e * 3*97 •• 9r : sP • 9 
e • 3*97 • 9r : sP - 9e : 3*97 : 9r >" 

15 PRINT RT 20; 1;"<30*9a>" 

16 PRINT RT 13;1;“<5*97 = sP'5*9 
7•sP*5*97•sP»5*97•sP» 6*97>" 

17 PRINT RT 13; 4; "< 9e ! 97 s 9r' s.P 
•9e : 97 : 9r•sP ! 9e : 97 ; 9r ; sP : 9e ! 97 : 9 
r : sP • 9ft‘-97 : 9r : sP : 9e : 97 : 9r V 

13 PRINT RT 14;4;"<9w : 96*94 ■%P 
•9w•96 ; 94 : sP : 9w•96 : 94 ; sP : 9w : 96 : 9 
4 1 sP : 9W•96■94 ! sP•9W : 96 : 94 )" 

19 PRINT RT 16;27;"H M ;fiT 13;27 
; "H" ; RT 15;27;"H" ; RT 14;27; ,, H , ‘ 

20 PRINT RT 9,6) "<7*isP>"• 

21 FOR R=9 TO 12 

22 PRINT RT 

23 NEXT R 

24 PR 1 NT RT y; 20; M < 5* i sP :•" 

25 FOR R=5 TO W 

26 PRINT RT R;2l; ,, H" 

27 NEXT R 

28 PRINT RT 5;22;"<9e•5*97=9r> 
; RT 6; 22; " < 9w «5*96 * 94 > " 

29 FOR R-5 TO 16 

30 PRINT RT R;29;"H" 

31 NEXT R 

32 LET A*=INKEY* 

33 LET C*C+<R*^ ,, Q ,, >-<R*« ,, &"> 

34 LET SC=SC+1 


35 PRINT RT G;0;"Ci ;RT G;C- 

i;“ ";RT G;C>li" " ; RT 16;27;"H" 

36 PRINT RT 9;13 ;"(. 7*9s >";RT 8 
> 14 * 11 " 11 " " " " " 

37 IF A**"^' AND 0*29 AND G=4 
THEN GOTO 7000 

38 LET F=F+1 

29 IF R*= ,, 7" RND 0*27 RNL> G«16 
THEN GOTO 37 

40 IF fl$="7" RND G*12 RND 0=6 
THEN GOTO 90 

41 LET H=H-1 

42 IF G=4 RND C*24 THEN PRINT 
RT 4;23;" 

43 LET I = l-<-l 

44 IF fl**"l M THEN LET 0=0-2 

45 IF G=4 RND 0*29 THEN GOTO 9 

8 

46 IF A*="l" THEN PRINT RT 6;U 

+2; " “ 

47 IF RS^'O" THEN LET 0=0+2 

48 IF R$“"0 M THEN PRINT RT G;C 


- 2 ; 


49 PRINT RT 8;I;"£";RT 8; 1-1;" 

50 IF 1=12 THEN LET 1=6 

51 PRINT RT 16;H;"0 0";RT 16 

;H+5;” " 

52 PRINT RT 12;7;“ " 

53 PRINT RT 12;F;"<9t;RT 12; 
F-l;" " 

54 IF F>24 THEN LET F=9 

55 IF F-C RND 0=12 THEN GOTO 7 

-? 

56 IF G=8 RND 0=14 OR 0=16 RND 
G=8 OR 0=18 RND 0=8 THEN GOTO 7 

~7 

57 IF H=1 THEN LET H=22 

59 IF 0=5 RND G=8 THEN GOTO 77 

60 IF 0=12 RND G=16 THEN GOTO 

~ 7~7 

61 IF 0=18 RND G=16 THEN GOTO 
77 

62 IF R*="7“ RND 0=21 RND G*0 
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C LIMB THE LADDERS to 
reach the diamond at the top. 
Jump the barrels on the first 
floor, the alien on the second floor, and 
the guardian and the ghosts of past 
adventurers on the third floor. Move 
left with “5”, jump left with “1”, move 
right with “8”, and jump right with 
“0” and climb ladders with “7”. 

Falling down a hole or hitting any¬ 
thing will kill you. Once you have your 
score, return to the ground floor by the 
ladder on the right of the screen to 
obtain your score. 

Donkey Diamond was written for 
the 16K ZX-81 by Charles Sandison of 
Caithness, Scotland. 


THEN GOTO 94 

63 IF C-24 HMD G=16 THEN GOTO 

~ 7 ~? 

' 64 IF 07 FIND G~12 THEN GOTO ; 
7 

65 IF 01.1 RND C=12 THEN GOTO 


66 IF 015 AND G=12 THEN GOTO 

67 IF 019 AND G»12 THEN GOTO 


W C. u 


68 IF 06 RND G=16 THEN GOTO 7 

~y 

69 IF G=12 RND 023 OR 020 RN 
D G=12 THEN GOTO 77 

76 IF G=*H+4 RND 016 THEN GOTO 
77 

71 IF OH RND G*16 THEN GOTO 7 
7 

75 IF C“I RND G*6 THEN GOTO 77 

74 PRINT RT 12,7-2;" ";RT 6,12 
"; RT 16,5;" “; RT 16,1;" " 

75 PRINT RT 12,24;" 

76 GOTO 32 

77 FOR F=G TO 19 

78 PRINT RT F, C ; l ° >" ; RT F,C; 

ii a 

79 NEXT F 

80 PRINT RT p, C ; " " *'" 


92 

93 

94 

95 

96 

97 

98 
9; " 

101 

sson 

103 
"; SC- 

ii 

104 

105 

106 


PRINT RT 0,0;" too bad-Pres 
t o tr y 3.9-?. l n " 

PRINT RT 21,0;" Press 

to stop 
INPUT B$ 

IF B$="S" THEN STOP 
IF 6*0 "S" THEN GOTO 1 
STOP 

PRINT RT 12,27; "< i" >" 

LET G—12 
GOTO 32 

PRINT RT 8,6;"<l">" 

PRINT RT 12,6;"H" 

LET G~8 
GOTO 32 

PRINT RT 4,21;"<i n >" 

PRINT RT 8,21;"H" 

LET G=4 
GOTO 32 

PRINT RT 16, C; "< l v ' >"; RT 4,2 

PRINT RT 6,0;" well done'mi 
completedd 

PRINT RT 21,0;" time takent 
" scoreL";180-SC;"< 4 *isP ) 

INPUT 

IF B«="" THEN GOTO 1 
IF B*< >"" THEN STOP 
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P ETROL CONSUMPTION, 
written by A Briggs of Broms- 
grove, Worcestershire calculates 
and displays graphically vehicle fuel 
consumption on the ZX-81. Full 
instructions are included in the pro¬ 
gram. When you are asked for the cost 
of fuel, enter the amount of money 
spent when the tank was last filled. 


W 5 G08UB 3000 125 REM C-CQST OF FUEL £.P 

10 GOTO 4006 130 INPUT C 

15 DIM N<5 6> 140 PRINT AT 6,18.:" " j TAB 24 ;C 

16 DIM E< 56 > 150 PRINT TAB J; "£.P PER GAL/LI 

17 LET N-l TRE ! " 

18 LET.G=0 155 REM L-PRICE PER GAL/LITRE £ 

20 GOSUB 3000 160 INPUT L 

25 CL3 170 IF L<1 THEN LET L-INT <L/-2 

30 PRINT TAB 10;C$;" MPG" 2*1000+.5VI000 

35 PRINT 180 PRINT AT 7,13;" "..TAB 24;L 

48 PRINT TAB l;"SPEEDO LAST FU 190 -LET G=G+INT <C/L*100+.5V18 
EL"; 0 

45 REM M«SPEEDO LAST FUEL 200 PRINT TAB 1;"TOTAL GALS TO 

58 PRINT TAB 24;M DATE"; 

55 PRINT TAB 1;"DATE THIS FUEL 210 PRINT TAB'24;G 

! " ; 228 LET X* I NT. < < S-M V< C/L >* 100+ 

56 INPUT D$ .5VI00 

57 PRINT AT 3,16;" ";TAB 24 ;D* 230 PRINT TAB 1;"MPG,LAST FILL" 

68 PRINT TAB 1 i "SPEEDO THIS FU ; 

EL !"; 240 PRINT TAB 24;X 

65 REM S=3PEED0 THIS FUEL 245 LET M=S 

70 INPUT S 250 LET Y= I NT < < S-Ml ,VG* 100+. 5 > 

80 PRINT AT 4,18;" ";TAB 24;S /100 

90 PRINT TAB 1;"GALS AFTER LAS 268 PRINT TAB 1;"OVERALL MPG"; 

T FILLED"; 279 PRINT TAB 24; Y 

95 REM G=TOTAL GALS TO LAST FI 280 PRINT 

LL 298 FOR U=1 TO 158 

110 PRINT TAB 24;G 295 IF INKEY$**"H" THEN LET U*14 

120 PRINT TAB 1;"COST OF FUEL,£ 8 
.P !"; - 380 NEXT I j 


52 
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310 CLS 

1010 PRINT RT 21,0•31I"- 

- «;*■! 

1020 PRINT RT 16,0;Sl+5;"- 

-»;C; 1+Cj 

1030 PRINT RT ll,O;Sl+i0;"- 

---";S1+10 

1040 PRINT RT 6,O;81+15;"- 

-";S1+15 


0,COST AND PRICE PER GALLON UR 
LITRE RS PROMPTED" 

4023 PRINT 

4024 PRINT "1# ALTHOUGH THE RE3UL 
TS WILL IN ANY CASE GET PR0GRE3 
GIVELY MORE ACCURATE IT IS BETTE 
R TO FILL THE TANK,OR NEARLY 3 
U,RT EACH PURCHASE TO ACHIEVE 
THE MAXIMUM ACCURACY FROM THE ST 


1050 PRINT RT 1,U;Si+20.; "- 

- M $ SI+20 

1060 PRINT RT 0,7;C$;" OVERALL m 
PG " 

1065 PRINT RT 1,?; "r-EG NO ";R$ 
1070 PRINT RT 2, 7; "INITIAL mILL’S 
"; Ml 

1090 PRINT RT 3,7; "CURRENT f'.ILES 
" .5 S 

1090 PRINT RT 4,7;P$;" TO ";D$ 
2000 LET E<N>=<< < I NT (Y+.5 >>-S1> 
>*2 

2010 IF E< N >>40 THEN LET E< N >=40 
2012 IF E< N)<0 THEN LET E<N>~0 
2015 FOR N=1 TO N 
2020 FOR H~Q-TO E<N> 

2030 PLOT N+3,H 

2035 NEXT H 

2048 NEXT N 

2100 FOR IJ-1 TO 2O0 

2105 IF INKEY$- ,, H" THEN LET U=19 

0 

2110 NEXT U 
2120 CLS 
2138 GOTO 8000 
3010 CLS 

3020 PRINT RT 5,0;"to HOLD DISPL 
RY PRESS ""H""" 

303Q FOR U=1 TO 75 
3040 NEXT U 
3050 CLS 
3060 RETURN v 

4000 PRINT "or overall Petrol c 
onaumPtion" 

4010 PRINT 

4020 PRINT "**THIS PROGRAMME CAL 
CIJLATES AND GRAPHICALLY DISPLAYS 

A CARS OVER-ALL FUEL C0N3UMPTIU 
N TO THE NEAREST MPG,FOLLOWIN 
G EACH FUEL PURCHASE." 

4021 PRINT- 

4022 PRINT "RAFTER FIRST ENTER I 
NG THE CAR DETAILS,IT IS ONLY N 
ECESSARY TO INPUT THE DATE,SPEED 


ART" 

4030 FOR U«1 TO 300 

4033 IF INKEY$-~"K" THEN 1 FT IJ-23 

Q 

4034 NEXT IJ 

4035 CLS 

4040 PRINT "INPUT CAR TYPE E.G." 
"CAPRI""" 

4050 INPUT C* 

4060 PRINT 

4070 PRINT "INPUT REGISTRATION N 
UMBER E.G.""TLT 512 M""" 

4080 INPUT R* 

409Q PRINT 

4100 PRINT "INPUT SPEEDOMETER RE 
ADING OF INITIAL FUEL BOUGHT 
E.G. 15509" 

4110 INPUT M 
4120 LET Ml^M 
4130 PRINT 

4140 PRINT "INPUT DATE OF INITIA 
L PURCHASE E.G. 24.12.81" 

4150 INPUT P* 

4160 PRINT 

4170 PRINT "INPUT MINIMUM EXPECT 
ED MPG FOR GRAPH BASE E.G. 20" 
4180 Input si 
4190 GOTO 15 
8020 CLS, 

8030 PRINT AT 5,0;"PRESS R FOR N 
EXT CALCULATION" 

8040 PRINT RT 7,0; PRESS S TO SA 
VE" 

8060 IF INKEY$*"R" THEN GOTO 25 
8070 IF INKEY$="S" THEN GOTO 900 
0 

8080 FOR U=1 TO 5 
8085 NEXT U 

8090 IF INKEY*K>"R" OR INKEYSO" 
S" THEN GOTO 8020 
9000 SAVE "CAR MP9" 

9050 GOTO 25 . 

9500 SAVE "CAR MP9" 

9550 GOTO 5 
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T HE OBJECT of The Clown is 
to answer 20 questions on either 
addition or subtraction correct¬ 
ly. If you choose to answer subtraction 
questions, a correct answer will result in 
a tick being drawn on the screen. 
Alternatively you can answer questions 
on addition, in which case a correct 
answer will result in a smiling clown, 
whereas an incorrect one will result in a 
gloomy clown. 

The Clown was written for the 16K 
ZX-81 by David Read of Ashby-de-la 
Zouch, Leics. 


52 PRINT AT 9,0;fi$ 

54- LET I$ = INKEY % 

55 IF I$="A" THEN GOTO 70 
60 IF I$="B" THEN GOTO 322 
65 GOTO 54- 
70 CLS 

80 PRINT AT 1,25;"KEY IN ";AT 
2,25; "ANSWER 11 ; AT 3,25; " AFTER; AT 
4.,25; "SUM"; AT 5,25; "APPEARS" 

85 PRINT AT 9,20;"l 1";AT 

10 , IS; "l 1 ft AT 11 , 20 ;"■ 

ft" ; AT 13,23, ft";AT 14,23;" 


36 PRINT AT 16,20; 

90 LET C=0 
95 LET S*0 
97 LET C=C + 1 
100 LET A=INT (RND+50) 

105 LET B=INT (RND*50) 

107 IF A +B =0 THEN GOTO 100 
110 PRINT AT C, 1; A; " +"; B; " =" 

115 INPUT D 

117 IF D =0 THEN GOTO 35 
120 PRINT AT C, 7; D 
130 IF D=A+B THEN GOTO 200 
135 IF DOA+B THEN GOTO 300 
200 PRINT AT 16,20;" 

205 PRINT AT 16,20. "\ ;A 

210 LET S =5 +1 

215 IF C=21 THEN GOTO 225 

220 GOTO 97 

225 CLS • 

230 PRINT "YOU GOT ";S;" OUT OF 
20 " 

235 IF 6=0 THEN PRINT AT 2,0;"U 
ERY WELL DONE" 

24-0 IF 5 = 15 THEN PRINT AT 2,0; » 
GOOD" 

245 IF 5=10 THEN PRINT "HALF RI 
GHT,NOT BAD" 

250 PAUSE 30 

255 GOTO 35 

300 PRINT AT 16,20;" 


305 PRINT AT 16,20;" _ 

T 17,20;"’ f % ";AT 18720; 

% " ;AT 19,20; "■£ 4" 

310 PRINT AT 0,10;"ANSWER*" 
315 IF 0=21 THEN GOTO 225 
320 GOTO 97 

322 CLS 

323 LET 0=0 

324 LET S=0 

325 LET AaINT (RND*50) 


A+B 


330 LET B = INT <RND*50) 

335 IF A-B < =0 THEN GOTO 325 
345 PRINT AT 0,0;A;";B;"=" 
350 INPUT D 

352 IF D =0 THEN GOTO 35 
355 PRINT AT C,7;D 
357 LET 0=0+1 

360 IF D=A-B THEN GOTO 400 
365 GOTO 500 
400 FOR F=12 TO 21 
405 PRINT AT F,21;" 

410 NEXT F 


420 LET 5=5+1 

425 IF 0=21 THEN_ GOTO 225 

430 GOTO 325 

500 FOR F=12 TO 21 

505 PRINT AT F,21; M 

510 NEXT F 

515 PRINT AT 12,21;"% J 1 "j AT 

13,21;- % / "jAt 14,21;- V 

":AT 15,21; " A. "AT 16,21;" / 
% ";at 17,21; V V 
520 Print at c-i, 10 ;"ansuer = "; a 

-B 

525 FOR F =0 TO 15 
530 NEXT F 

535 IF 0=21 THEN GOTO 225 
540 GOTO 325 
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Upgrade your 

16K 

ZX SPECTRUM 

Now! 

The CHEETAH 32K RAMPACK simply plugs into the user port at the rear of 
your computer and increases the memory instantly to 48K. 

* Fully compatible with all accessories via rear edge connector 

★ No need to open computer and invalidate guarantee 

★ Why send your computer away and wait weeks for upgrade 

* Fully cased tested and guaranteed. 

Why wait any longer? 

Only £39.95 including VAT and P&P. 



Now make your 
Spectrum and ZX-81 Talk 

The Cheetah "SWEET TALKER" just plugs into the back of the computer using the existing power supply. Based on an 
allophone system you can easily program any word sentence or phrase. Fully cased, tested guaranteed and compatible 
with all accessories via rear edge connector. Complete with demonstration cassette and full instructions. No more lonely 
nights! Simply incredible at £29.75 (Please quote when ordering whether Spectrum or ZX81 owner) 


16K RAM Pack for ZX-81 
64K RAM Pack for ZX-81 


£19.75 

£44.75 


Prices include VAT, postage & packing. Delivery normally 14 days. Export orders at no extra cost. Dealer enquiries 
welcome. 

Send cheque/PO now to: 

CHEETAH MARKETING LTD 
Dept SU/1 
24 Ray Street 
London EC1 R3 DJ 
Tel: 01-278 6954 

32K RAM Pack and "SWEET TALKER" also available from larger Branches of 


WH SMITH 
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ltt BORDER 1- PAPER 7' INK 1 C 
LG * POKE 23609,50 
100 PRINT TIT 0.9; "PERIODIC TABL 
E";AT 5,15; "BY">AT 7. 13; "C.LDE. " 
lie PRINT AT 16/4; "This Program 

is designed"';AT u.4 "to hol* 
yOU 1 eini about"; RT 12,4;" the P 
eri od l c Tab l e. There "; AT 13.4;” ar 
e i nstrueti ons through "; AT 14.4. 
"the Program to tell m’ou" AT 15 
.7;"how to operate it.";AT 17,5; 
"PRESS ANY KEY TO START" PAUSE 
0 

120 CLS PRINT " How wou mu 
»t choose which Partof the ProOr 
am you wish to use. When you h 
ave dec>ded from thelist be 1 ow, 
Press the number by the one you 
want and sou will 9ct the Part 
you require ." 

12C PPINT 1 Choose an el cm 

ent. """ 2 Element, test.""" 3 R 
un through the whole table.""" 

4 End the Program.” 

140 LET a*“INKEY*• IT as—1" OR 
a**"2" OR a*-" 3" OR aS-"4" THEN 
GO TO VAL aSt!«»Q0 
150 GO TO 140 

1O00 CLS PRINT Enter the N 

AME or -SYMBOL of theelement you 

wish to Know about and Press th 

e 'ENTER' Key.""' Don't forget t 

o use 3 capital letter at the b 

e9imng of each NAME or ;vMeoi . 
•• 

1010 INPUT nS POP b-1 TO 103 R 
ESTORE 4598+b*2- READ -<S,sS IF 
n*«j* OP n*~s* THEN CO TO 1100 
1020 NEXT b CLS PRINT "" The 
re is no such element."- GO TO 1 
110 

1100 READ a- CLS • PRINT "" Ele 
ment. - "; j*" *■ Symbol - "; s*" ” 
Atomic number - ";b"" Mass numb 

--";a " " Number of Protons•- 

";b''" Number of newtons - "; a-b 
"" Number or electons- " ;b 
1110 PRINT Another element V/ 
N?" 

1120 IF ZNKEY*—y" THEN GO TO 10 
00 

1130 IF INKEY®-"n" THEN GO Tfj 12 
0 

1140 GO TO U2Q 

2000 CLS • PRINT You will n 

ow be tested on the c : ements. Y 
ou will be asked a number o^ 4 u 
estions on each ele-ment." Do 
n't forget to use a capital iett 
er for names and symbols. No-.- 
enter how far.down the t?blevou 
want to be tested on and Pres 

s 'ENTER'." 

-2010 INPUT nd IF ncKl OR nd>l93 
THEN GO TO 2019 

2020 CLS PRINT "The questions 
on each element wxl’ be Printe 
d uP one by one. After answerin 


9 a question Press'ENTER'." 

2030 LET rn-INT < RNDTnd *+’ PEST 
ORE 499S+rnT2* READ aS.sS.a PRI 
NT '" Element - -; j*" - Symbol - 
"; GO SUB 2200 

2040 IF q*=s* THEN CO SUB 2300 

GO TO 2050 

2045 CO SUB 2319 

2050 PRINT "" A*-omic number -"; 
• GO SUB 2200- IF q*-STPS THE 
N GO SUB 2300- GO TO 2060 
2955 GO SOB 2319 
2060 PPINT "" Mass number -" 

GO SUB 2200- IF q*-STR* a THEN G 
0 SUB 2300 ■ GO TO 2070 
2065 GO SUB 2210 

2070 PRINT ''" Number Protons-" 
• GO sue 2200- IF qs^-STR* rn TH 
EH GO SL»e 2300- GO TO 2020 
2075 GO SUB 2310 
2080 PRINT Number Neutrons - 

"; GO SUB 2200 LET oP-a-rr.- IF 
CS^STR® oP THEN-CO SUB 230‘J CO 
TO 2027 

2035 GO SUB 2310 
2037 PPINT Number Electrons 

• GO SUB 220O IF q*“STP* rn 
THEN GO SLIP 2300 * CO TO 2! 00 
2090 CO SUB 2310 

2100 PRINT "" Another test Y-'N" 
2110 IF INKEVS-"y" THEN CO TO 20 
20 

2120 IF INKEYS—n" THEN CO TO !2 
0 

2130 CO TO 2110 

2200 INPUT qs PRINT " ";4*;* RE 
TURN 

2300 PRINT " RIGHT" - FOR 1~1 TO 
59 STEP 5- BEEP .05.1* NEXT \- 
RETURN 

2310 PPINT " WRONG";- BEEP 1,-1 
RETURN 

30OO CLS • PRINT ''“ You now 9e 
t each element Put on the scree 
n one by one."'" Now ente*- the 
atomic number you wish to star 
t and fmsh at." 

3010 INPUT "Start ";st• ir st<1 
THEN CO TO 3010 

3812 INPUT -Finish ";fi- IF fl>l 
03 THEN GO TO 3012 • 

3014 IF st>fi THEN CO TO 3010 

3015 CLS • PRINT "• Press '1' 
if you want to Prcssa kev after 
each element."'” Press '2' if v 
ou want it- to change the eleme 
nt after a time." 

3O20 IF INKEY*-"1" THEN LET de-0 
! GO TO 3050 

3030 IF INKEYS-"2" THFN INPUT "D 
elay time <lower"faster> ";de L 
ET de-dee1- GO TO 3050 
3040 GO TO 3028 

3050 FOR b-st TO f t - RESTORE 493 
8*bT2 : READ v*.s*,a 
3079 CLS - BEEP .05.2' PRINT "" 
Element - ";j*"" Symbol-- ”;s* 
'' " Atomic number - " ;b" “ Mass 


number - ";a"" Number of proton 
S' - "; b"“ Number of neotons'- " 
;a-b"" Number of electons- ";b 


PRINT 


; q®. 


RIGHT":- FOR 1*1 TU 
BEEP .05,1* NEXT 1- 


WPONG' 


BEEP l.-l 


3060 

5900 

5002 

5004 

5006 

5008 

5O10 

5012 

5014 

5016 

5018 

5020 

5022 

5024 

5026 

5028 

5030 

5032 

5034 

5036 

5038 

5049 
5042 
5044 
5046 
5048 

5050 
5052 
5054 
5056 
505e 

5063 
5062 

5064 
5066 
506e 
5070 

5872 

5074 

5976 

5078 

5060 

5082 

5984 

5086 

5088 

5090 

5092 

5094 

5096 

5098 

5100 

5102 

5104 

5196 

51Q8 

5110 

5112 


PAUSE 
DATA " 
DATA " 
DATA " 
DATA " 
DATA " 
DATA « 
DATA " 
DATA " 
DATA " 
DATA " 
DATA " 
DATA " 
DATA " 
DATA ■ 
DATA " 


de- NEXT b- GO TO 120 
Hydrogen","H",1 
Helium","He",4 
Lithium","Li",7 
Beryllium","Be", 9 
Boron"."B",11 
Carbon", "CM2 
Nitrogen","N", 14 
Oxygen". "O'M6 
Fluorine","F",19 
Neon","Ne",20 
Sodium","Na",23 
Magnesium","M9",24 
Aluminium","Rl",27 
Si!icon","Si",28 
Phosphorus","P",31 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

C-fiTA 


"SulPhur","S",32 
"Chlorine","Cl",33 
"Argon","A",48 
“Potassium","K",39 
"Calcium","Ca",40 
"Scandium","Sc",45 
"Titanium","Ti",48 
"Vandium",“V",51 
"Chromium","Cr",52 
"Manganese","Mn",55 
"Iron","Fe",56 


Cobalt", 

"Co" 

,59 

Nickel", 

"Ni" 

,59 

CoPPer", 

"Cu" 

,64 

Zinc","Zn",65 

Gallium" 

, "Ga 

", 70 


"Germanium","Ge",73 
"Arenic"."As",75 
"Selenium","So",79 
"Bromine","Or",80 
"KryPton","Kr",84 

"Rubidium","Rb",85 
"Strontium","Sr",88 
"Yttrium","Y",89 
"Zirconium","Zr",91 
"Niobium"."Nb",93 
"Molybdenum","Mo",96 
"Techrtium","Tc",98 
"Ruthrnium","Ru",102 
"Rhodium","Rh”,163 
“Palladium","Pd",107 
"Silver","ftg'M 08 
"Cadmium","Cd",112 
"Indium","In",115 
"Tin","Sn", 119 
"Antimony ","Sb",122 
"Tellurium"."Te'M 29 
"Iodine","I",127 
"Xenon","Xe",132 
“Caesium",“Cs",133 
"Barium"."Ba",136 
"Lanthanum" . "Lai' ^13* - 


5114 DATA "Cerium","Ce",140 
5116 DATA "Praseodymlurn","Pr", 14 
1 

5118 DATA "Neodymium","Nd",144 
5120 DATA "Promethium", "Pm'M4G 
5122 DATA "Samarlum","Sm",l50 
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C HRISTOPHER EDE of Grims¬ 
by, South Humberside wrote 
Periodic Table for Spectrum 
owners who are studying chemistry. 
The program will print on-screen the 
entire periodic table, or a selected part 
of it. Each element is shown, together 
with its symbol, its mass numbers and 
the appropriate number of protons, 
neutrons and electrons. 

The advantage the program has over a 
table in a book is that it will also test 
you on the entire periodic table or on 
any part of it. 


5124 

5126 

5128 

5130 

5132 

5134 

5136 

5l3e 

5140 

5142 

5144 

5146 

5148 

5150 

5152 

5154 

5156 

5158 

5160 

5162 

5164 

5166 

5168 

5170 

5172 

5174 

5176 

5178 

5180 

31 

5182 

5184 

5186 

5188 

5190 

5192 


DATA "EuroPium", n Eu",152 
DATA "Gadolinium"."Gd",157 
DATA "Terblurn","Tb’M 59 
DATA "Dysprosium", "Du",162 
DATA "Holmium","Ho",165 
DATA "Erbium",“Er“,167 
DATA "Thulium","Tm",168 
DATA " Ytterb ium", "Yb" ,173 
DATA "Lutetium","Lu",175 
DATA "Radium","Ra",226 
DATA "Tantalum","Ta",181 
DATA "Tungsten","W",184 
DATA " Rhen 1 u.m ", " Re ", 186 
DATA "Osmium","Os",190 
DATA "Iridium","Ir",193 

DATA "Platinum","Pt",195 
DATA "Gold","Ru",197,80 
DATA "Mercury","H9",201 
DATA "Thallium","Tl",205 
DATA "Lead","Pb",207 
DATA "Bismuth","Bi",209 
DATA "Polonium","Po",210 
DATA "RStatine","At",210 
DATA "Radon","Pn",222 
DATA "Franciurn","Fr",223 
DATA "Radium","Ra",226 
DATA "Actinium","Ac",227 
DATA "Thorium","Th",232 
DATA "Protoactinium","Pa",: 

DATA "Uran i urn","U",238 
DATA "Neptunium","HP",237 
DATA "Plutonium","PI",233 
DATA "Rmerlclurn","Am",243 
DATA "Curium","Cm",245 
DATA "BerP*lium","Bk",249 


5194 DATA "Californium","Cf",249 
5196 DATA "Ernst l mum", "E",255 
5198 DATA "Fermium","Fm",255 
5208 DATA "Monde1evium","Mv",256 
5262 DATA "Nobellurn","No",255 
5204 DATA "Laurer.cj urn", "Lu", 256 

























OVE AROUND the grid 
avoiding the blue squares but 
to cross all the yel- 
the exit, 
all moves must be 
entered in advance. Enter them as 
“F”—forward, “B”—backward, “L”— 
left, “R”—right, and “S” when you 
have entered your moves to start your 
arrow moving. 

Pathway runs on the 16K Spectrum 
and was written by Kevin Macdonald of 
ShefField. 


40 POKE 23653,8 
50 LET Y=1 
60 LET SC=0 
70 LET J-8 
80 LET PH-18 
98 GO SUB 760 

100 FOR 3=USP "a" TO USR "D"+7 
110 REfiD q- POKE J.q NEXT a 

129 DRTfi BIN ill11111,BIN 10800 
001,BIN 10000001,BIN 10008001,BI 
N 10000001,BIN 10080081,BIN 3008 
0001,BIN 11111111 

130 DRTfi BIN 00009000,eiN 00010 
00,BIN 00000100,BIN 01111110,BIN 

00000100,BIN 00001000,0,0 
140 DRTfi 0,BIN 00010000,BIN 00! 
00000.BIN 01111110,BIN 00100080, 
BIN 00010000,0,0 
150 DRTR 0,BIN 00001000.BIN 808 
01000,BIN 00001000, BIN 00101010, 
BIN 00011100,BIN 03001000.0 
160 FOR b-0 TO 10 
170 PRINT RT B,0; INK 0; BRIGHT 
1;" RfiRRRRRfiRRRRRRPRRRRRRRRRRRRR 
RfiflfT; BRIGHT 0 
180 NEXT b 

200 FOR R-l TO 80+<X*3*10> 

210 LET fll-INT <RND*18> 

220 LET R2-INT <RND*32> 

230 PRINT RT fil,R2; INK 1; PPPE 
R 1 ; " . " 

240 NEXT R 

250 FOR R-l TO 3 

260 LET Yl-INT <RND*31>+1 

270 LET Y2-INT <RND*17> 

280 PRINT RT Y2,Y1; PfiPER 6; IN 
K 6;"T" 

290 NEXT R 

295 PRINT RT 0,0; INK 0; PRPER 
0 ; " + 


300 REM ENTER DIRECTIONS 
310 DIM DS<200,1> 

320 PRINT RT 21,0; FLRSH 1;" 

PRESS ENTER TO STRRT 
330 PAUSE 0 
340 PRINT RT 21,0;" 

N 

350 LET PV=INT <RND*31>+! 

368 PRINT RT 13,PV; FLASH l;"t" 
378 PRINT RT 20,0; 

380 FOP R-l TO 208 
390 PAUSE 0 

400 IF INKEY*-"L" OP INKEY*-"S" 
OP INKEYS= U R H OR INKEYS-“F M OP 
INKEY*="e c ’ THEN GO TO 438 
410 IF INKEYS-" " THEN GO TO 39 

0 

420 GO TO 398 

430 IF INKEYS="S” THEN GO TO 43 

0 

440 LET D*<fi>»INKEY* 

450 PRINT INKEY*; IF R-31 OR R 
-62 OR fl-93 OR fl-124 OP R-l65 TH 
EN PRINT RT 20,0;" 

"« PRINT RT 20 

, 0 ; 

460 BEEP .05,-10- BEEP .05,10 

470 NEXT fl 

480 LET Rl-fl 

490 PRINT RT 20,0;" 

•• 

500 FOR R-l TO 200 
520 LET PHL-PH- LET PVL=PV 
530 IF fi-Rl THEN GO TO 670 
540 IF D*(R >«"F" THEN LET PH-PH 
-1= LET OS-"T M 

550 IF D*< fl >-"R" THEN LET PV-PV 
+1' LET QS»"B : 

560 IF DSC R >-"L" THEN LET PV-PV 


-1> LET Q9= "C" 

570 IF DSC R >="B" THEN LET PH=PH 
+1 LET 08="D" 

580 IF SCREENS CPH,PV>="." THEN 
LET Y=0 

598 IF SCREEN* <PH,PV>-"T" THEN 
LET SC-SC+1- BEEP .5,48 
680 IF SCREENS <PH,PV>*"+" AND 
SC-3 THEN GO TO 718 
610 PRINT OVER 1;RT PH,PV;0$ 

620 PRINT RT 19,0;DSCR> 

630 PRINT RT PHL,PVL; BRIGHT 1 ; 
PRPER 7; "fT 

640 IF Y-0 THEN GO TO 678 
650 BEEP .03,30 s BEEP .03,0’ BE 
EP .03,30 
660 NEXT R 

670 PRINT RT 21,0; FLRSH 1; PRP 
EP 6; INK 0;" YOU HAVE CR 

ASHED 

680 BEEP .3,10' BEEP .3,28 

690 IF INKEYS-"" THEN GO TO 670 
708 RUN 

710 PRINT RT 21,0; FLASH 1; INK 
1; PRPER 6," WELL DO 

NE 

720 BEEP .3,30’ BEEP .3,35 
730 IF INKEYS-"" THEN GO TO 718 
740 PRINT RT 20,11;"SCORE-";fl 
750 RUN 
760 CLS 

770 PRINT " ENTER DIFFICULT 

Y NO."' PRINT 

780 PRINT " 1-ERSY" 1 PRINT " 
2-HARD”' PRINT " 3-IMPOSSIBLE" 

790 PAUSE 0 
800 LET X-VRL INKEYS 
810 PETUPN 
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D eployment strategy is 

a game of tactics and cunning 
which was sent by Jerome Las- 
kowski of London SE6 for use on the 
16K ZX-81. 

The enemy’s regiments are lined-up 
on the battlefield at the left of the 
screen. Your less-willing soldiers arrive, 
a regiment at a time and, by keying-in a 


letter between A and J, you position 
them on the front line where they fight 
against the equivalent enemy force and 
the stronger wins a point. 

The victorious regiment then moves 
to the right of the screen, where it takes 
position for the next battle. 

As a further test of your skill you 
must estimate before each battle how 


many fights your troops will win. A 
correct answer earns three bonus 
points, an incorrect one means you lose 
three points. 

The war ends when either you or 
your enemy has a lead of 10 or more 
points at the end of a battle. 

Lower-case letters in brackets are 
graphics instructions. 


5 DIM RC44 > 

10 DIM fi*< 2,9) 

15 LET RSC 1 >»"C nine Graphic Hs 

>" 

20 LET A*C2>""Cten inverse SPR 
CEs >" 

25 RflND 0 
30 FRST 
40 CLS 

50 LET RC 41 )«RC 41>+l 
60 PRINT RT 0,6;"DEPLOYMENT ST 
RRTEGY",,,TAB 27;"NEXT";TAB 9;"B 
RTTLE ";R< 41);TAB 26;"BATTLE" 

70 LET BS“" THE ENEMY" 

80 LET RC 43 )-0 
90 LET R<44>-0 
95 FOR P-9 TO 40 
100 PRINT RT 15,P-9;".";RT 19,P 
-9;". " 

185 NEXT P 
110 GOSUB 600 
120 LET 1-1 
130 GOSUB 800 
140 LET 1-21 
150 GOSUB 800 
155 SLOW 

160 PRINT RT 21,2;"YOUR ESTIMRT 
E PLEASE, GENERAL" 

170 INPUT EST 

180 IF EST<0 OR EST>10 THEN GOT 
0 170 

190 PRINT RT 17,4;"ESTIM ";EST 
200 FOR J-21 TO 38 
210 PRINT RT 21,2;" 

•I 

220 LET P-J 

230 IF R(P)<>0 THEN GOTO 320 


240 LET VRL-INT CRND*10> 

250 PRINT RT 21,2;"REINFORCEMEN 
TS : ";RSC1,1 TO VRL >;VRL 
260 INPUT PS 
270 LET P-CODE PS-17 
280 IF P<21 OR P>30 THEN GOTO 2 
60 

290 IF RC P-20 >-0 THEN GOTO 260 
380 LET fl< P)-VRL 
310 GOSUB 1000 

320 IF fl<P >-RC P-20) THEN GOTO 4 
00 

330 LET H-0 

340 IF RC P >>RC P-20 > THEN LET H- 

1 

350 LET AC 43 >-RC 43 >+H 
360 LET RC 44 )—RC 44 >41-H 
370 PRINT RT 4+RC 44-H >, 27+4*H; C 
HRS C RC P+C H-1>*20 >+28-128*C H-1> > 
380 LET RC RC 44—H )+10+H*20 >—RC P* 
CH-1>*20> 

390 GOSUB 600 

400 PRINT RT P-16,13;" " 

410 LET RC P-20 >-0 
420 LET RCP>-0 
430 NEXT J 
440 LET H—1 

450 IF RC 43 >-EST THEN LET H-2 
460 PRINT RT 21,2;"LOSE 3 POINT 
S FOR ESTIMATE" 

470 IF RC43>-EST THEN PRINT RT 
21,2;"GRIN" 

400 FOR J-l TO 40 
490 NEXT J 
500 GOSUB 600 

510 IF RBS RC42X10 THEN GOTO 3 

0 


520 PRINT RT 21,2;"END OF URR - 
YOU LOSE 

530 IF RC 42>>0 THEN PRINT RT 21 
,19; "WIN " 

540 STOP 

600 IF P>35 THEN GOTO 630 
610 LET RC 42 )-RC 42 )+2*H-l 
620 PRINT RT 18,4;"GRINS ";R<43 

> 

630 LET NME-CRBS RC 42 >-RC 42 > >/2 
640 LET YOU-CRBS RC 42 )+RC 42 > >/2 
650 PRINT RT 16,18;"SCORE : ";TRB 
20;"ENEMY ";NME,TRB 20;"YOU 
; YOU, 

660 RETURN 
800 FOR P-I TO 1+9 
810 IF RC P+10 )-0 AND P>20 THEN 
RETURN 

820 IF RC P+10 >-0 THEN LET RCP+1 
8>-INT C RND*8+2 > 

830 LET RC P >-RC P+10 > 

840 LET RC P+10 >-0 
850 GOSUB 1000 
860 NEXT P 
870 RETURN 

1000 IF 1-1 THEN PRINT RT P+4,0; 
BSCP>;".";TAB 13;CHRS CP+37>;TRB 
25;".";TRB 29;CHRS CP+37) 

1010 PRINT RT P-I+5,13+SGN CI-5> 
*C RC P >+2 >; RC P >; 

1020 IF 1-21 THEN PRINT RT P-16, 

14;" "; 

1030 PRINT RSC l+C21-*/20, 1 TO R 

CP>> 

1040 RETURN 
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timijsuj 


/ 


2 LET FED-0 

3 LET 1-0 

4 LET SET-1000 

5 LET IN1T-91&0 

6 GOSUB INIT 
14 LET At-"" 

17 CLS 

20 LET NU-0 
22 LET Efi-u 
24 LET WE-0 

26 LET SO-0 

27 LET UP-0 

28 LET 00-0 
30 LET It-"" 

32 FRST 

35 GOSUB SET 
40 CLS 
45 PRINT I* 

50 LET FGUND-0 
52 LET P-0 
60 GOTO 3600 
70 SLOW 
e0 GOTO 100 

30 IF ft*-"LOOK" RND NOT FOUND 
THEN PRINT "I CAN""T SEE ANYTHIN 
G SPECIAL" 

100 PRINT "WHAT SHALL I 00 ?" 

101 SLOW 

102 INPUT JS 

103 IF Jt-"" THEN GOTO 100 

104 CLS 

106 LET A-RNO 

107 IF SET-1240 RND A>.35 THEN 
PRINT "THE DOG AWOKE AND KILLED 
YOU" 

108 IF SET-1240 AND A>.35 THEN 
GOTO 3000 

109 GOSUB 500 

110 PRINT A*;" ";B* 

111 IF 8*-"" THEN GOTO 115 

112 IF 8S<1" THEN LET B*=8i 
<2 TO > 

113 IF At-"TAKE" UR A**"GET" OR 
AS-"PUT" UR A*-"DROP" THEN LET 

6*-B$+" 

114 IF B*=" " THEN GOTO 112 

115 IF A*-"N" AND NOO0 THEN LE 
T SET-NO 

120 IF R$="S" AND SOK>0 THEN LE 
T SET-SO 

130 IF At- M W" AND WEO0 THEN LE 
T SET-WE 

140 IF A*="E" AND ER<>0 THEN LE 
T SET-EA 

150 IF Af-"D" AND D0<>0 THEN LE 
T SET-DO 

155 IF RS="N" OR AS=“S" OR A*-" 
W" OR A*-“E" OR AS-"D" THEN GOTO 

20 

156 IF A*-"U" AND SETO1210 AND 
SETO1240 AND SETO1450 THEN GO 

TO 158 

157 IF Rt-"U" THEN GOTO 6000 

158 FAST 

160 IF A*-"R" THEN GOTO 40 
170 IF A*="H£LP" THEN PRINT "NO 


CHANCE MATE" 

175 IF A*-"HELP” THEN GOTO 100 
180 IF A*-"TAKE" OR AS-"GET" TH 
EN GOTO 2000 

185 IF A*-"SAVE" THEN GOTO 9800 
190 IF A*- PUT" OR A*-"DROP" TH 
EN GOTO 4500 

200 IF A*-"OPEN" THEN GOTO 2500 
205 IF At-"FEED" THEN GOTO 3500 
210 IF At-"LOOK">- GOTO 60 
215 IF Af-"SWIM" THEN GOTO 4000 
225 IF At-"LIGHT" THEN GOTO 750 

0 

230 IF At-"READ" THEN GOTO 6500 
240 IF At-"UNLOCK" THEN GOTO 30 
00 

250 IF At-"I" THEN GOSUB 5500 
255 IF At-"I" THEN GOTO 100 
260 IF At-"INSERT" THEN GOTO 70 
00 

275 IF At-"QUIT" THEN GOTO 3000 
280 IF A*-"SAVE" THEN GOSUB 3*0 

0 

490 IF LEN Rt=l THEN PRINT “I C 
AN""T " 

491 IF LEN AS-1 THEN GOTO 100 


498 PRINT "I CAN”"T ";AS. 


;B9 


499 GOTO 100 

500 IF JtC1 " AND LEN J*>1 T 

HEN LET TO > 

501 IF Jttl>-" n THEN GOTO 500 

502 LET SP-0 

503 LET At-"'* 

504 LET e#="" 

505 FOR N-l TO LEN J* 

507 IF Jt< N " " AND NOT SP THE 
N LET SP-1 

508 IF Jt<N>=" " AND NOT SP THE 
N GOTO 520 

510 IF SP-0 THEN LET RS-AS* J*', N 

> 

515 IF SP>0 THEN LET Bt-Bt+jt'N 

> 

520 NEXT N 
530 RETURN 

1000 LET It-"YOU ARE IN A FOREST 
. THERE ARE PATHS LEADING NORTH 
AND SOUTH" 

1010 LET NO-1390 
1015 LET SO-1030 
1020 RETURN 

1030 LET It-"YOU ARE IN A FOREST 
, WITH PATHS LEADING NORTH AND E 
AST RND A CLEARING TO THE WES 
T" 

1035 LET NO-1000 
1040 LET EA-1030 
1045 LET WE-1060 
1050 RETURN 

1060 LET It-"YOU ARE IN A CLEARI 
NG. IN THE CENTRE IS A TIME MA 
CHINE, WHICH LACKS A POWER SOURC 
E. EXIT ERST" 

1070 LET EA-1030 
1080 RETURN 

1090 LET It-"YOU ARE IN A FOREST 





. THERE IS A PATH RUNNING EAST-W 
EST" 

1180 LET WE-1030 
1105 LET EA-1120 
1110 RETURN 

1120 LET It-"YOU ARE IN THE FORE 
ST. THROUGH A GAP TO THE NORTH 
YOU CRN SEE ALAKE. THE PATH RUNS 
EAST-WEST AND THERE IS A CAVE 
TO THE SOUTH" 

1125 LET ER-1300 
1130 LET WE-1030 
1135 LET SO-1150 
1140 RETURN 

1150 LET It-"YOU ARE IN A SMALL 
CAVE. DAYLIGHT IS TO THE 

NORTH. THERE IS A DOOR TO THE WE 
ST RND AN OPENING TO THE SOUT 
H" 

1160 LET SO-1130 
1165 LET NO-1120 
1170 RETURN 

1180 LET It-”YOU ARE IN A LARGE 
CAVERN. THEREIS A CHEST LYING IN 
ONE CORNER, AND A SKELETON IN A 
NOTHER. THE ONLY EXIT IS TO THE 
NORTH" 

1190 LET NO-1150 
1200 RETURN 

1210 LET It-"I CAN""T SEE A THIN 

G“ 
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K EITH BE VAN, aged 14, of Ste¬ 
venage, Herts wrote Timeslide, 
a 16K ZX-81 adventure game. 
Your time machine crashes in the dim 
and distant past. To return to your own 
time you must repair your craft. With 
trial and error, make a plan of your 
environment and collect the objects you 
think may be of use. The computer will 
accept direct commands, i.e., verbs fol¬ 
lowed by nouns. These are: 


Take or get Drop or put 

Open Feed 

Look Swim 

Light Read 

Unlock Insert 

Quit 

The abbreviations for directions are 
N,S,E,W, and D for descend and C for 
climb. I will bring up the inventory and 
R repeats the description. Bevan sold his 
ZX-81 recently, this is his final offering 
before he upgrades to a Spectrum. 


1220 LET UP-1150 
1230 RETURN 

1240 LET I•-"YOU ORE IL A LONG P 
ASSAGE. YOU CRN HEAR THE SOUND 
OF DRIPPING WATER. TO THE NORTH 
IS A FLIGHT OF STAIRS WITH A LA 
RGE DOG SLEEPING ON THE BUT 

OM STEP" 

1250 LET SO-1210 
1260 RETURN 

1270 LET I*-"YOU ARE ON AN ISLAN 
D IN THE CENTRE OF THE LAKE. 

THERE IS A HOLE IN THE GROUND 
WITH A STAIR-CASE IN IT- 
1280 LET DO-1240 
1280 RETURN 

1300 LET IS="YUU ARE BESIDE A LA 
K£. THERE IS AN ISLAND IN THE Ml 
DOLE OF THE LAKE. TO THE WEST 1 
S THE FOREST AND TO THE NORTH IS 
A ROCKERY" 

1310 LET NO-1330 
1315 LET WE-1120 
1320 RETURN 

1330 LET IS=“YOU ARE IN A ROCKER 
Y. THE LAKE IS TO THE WEST/ AND 
THERE ARE SOME REEDS TO THE N 
ORTH" 

1340 LET NO-1360 
1345 LET SO-1300 


1350 RETURN 
1360 CLS 

1365 PRINT "I HAVE FALLEN INTO A 
SWAMP. GLUG.GLUG_GLU 


1370 GOTO 3000 

1390 LET I*="YOU ARE IN A SHRUBB 
ERY. THE FOREST IS TO THE SO 
UTH. THE LAKEIS TO THE EAST/ AND 
MEADOW IS TO THE NORTH- 
1400 LET NO -1420 
1405 LET SO-1000 
1410 RETURN 

1420 LET I*-"YOU ARE IN A MEADOW 

. THE LRKE ISTO THE SOUTH-EAST. 

TO THE SOUTH IS THE SHRUBBERY AN 

D TO THE EASTIS A TOWER- 

1430 LET EA-1450 

1435 LET SU-1330 

1440 RETURN 

1450 LET 1*="YUU ARE AT THE FOOT 
OF A TOUER. THERE IS NO DOOR To 
BE SEEN. TO THE WEST IS THE MEA 
DOW AND TO THE EAST ARE SOME R 
EEDS." 

1455 LET EA-1360 
1460 LET WE-1420 
1465 LET UP-14B0 
1470 RETURN 

1480 LET 1*=*'Y0U ARE AT THE TOP 
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OF THE TOWER THERE IS NO DOOR UP 
HERE EITHER" 

1490 LET DO*1430 
1300 RETURN 

2000 IF I>*5 THEN PRINT "I CAN"" 
T CARRY ANYMORE" 

2005 IF I>*5 THEN GOTO 180 
2O10 IF BS-"" THEN PRINT AS;" WH 
AT ?*' 

2013 IF BS="" THEN INPUT BS 

2015 IF BS-'"' THEN GOTO 100 

2020 LET FOUND-0 

2025 FOR N-l TO 12 

2030 IF I(N)<>SET THEN GOTO 2053 

2033 IF OS'* NX >&»'. 1 TO 15> THEN 

GOTO 2055 

2035 PRINT "OK..." 

2040 LET FOUND*l 
2045 LET I<N>0 
2050 LET 1*1+1 
2055 NEXT N 

2060 IF FOUND-0 THEN GOTO 409 
2065 GOTO 100 

2500 IF BS="" THEN PRINT "OPEN W 
HAT ?" 

2505 IF BS-"" THEN INPUT B* 

2510 IF BS*”" THEN GOTO 2500 

2511 CLS 

2513 IF BS="DOOR" AND SETOU50 
THEN PRINT "WHAT DOOR" 

2520 IF 8S="D00R" AND SETOl 150 
THEN GOTO 499 

2525 IF BS*"DClOR" AND UNO-0 THEN 
PRINT "IT""S LOCKED DUMBO.." 
2530 IF B*="DUOR" AND UND-0 THEN 
GOTO 433 

2535 IF BS="DOOR" THEN PRINT "TH 
ERE IS A STAIR GOING DOWN." 

2540 IF BS="DOOR" THEN LET DO-12 
10 

2545 IF BS-"DOGR" THEN GOTO 100 
2550 IF BS-"CHEST" AND SETOl 180 
THEN PRINT "I SEE NO CHEST" 

2555 IF BS*"CHEST” AND SETOl 180 
THEN GOTO 100 

2560 IF BS-"CHEST" AND NOT UNC T 
HEN PRINT "IT""S LOCKED" 


2565 IF BS-“CHEST" AND NOT UNC T 
HEN GOTO 100 

2570 IF BS-"CHEST" THEN PRINT "0 


3550 LET FED-1 

3555 LET UP-1270 

3560 PRINT "MUNCH, MUNCH" 

3565 LET 102 >-1180 
3570 GOTO 100 

4000-IF SET-1120'OR SET-1270 OR 
SE—1300 OR SET-1338 OR SET-1390 
OR SET*1420 THEN PRINT "BRR. THE 
WATER IS TO COLD" 

4005 IF SET-1120 OR SET-1270 OR 
SE-1300 OR SET-1330 OR SET-1390 
OR SET-1420 THEN GOTO 100 
4010 PRINT "THERE IS NO WATER HE 
RE" 

4015 GOTO 100 

4500 IF BS-"" THEN PRINT "DROP W 
HAT ?" 

4502 IF BS="" THEN INPUT BS 

4503 IF BS-"" THEN GOTO 4500 
4505 FOR N-l TO 12 

4507 IF BSC 1>=" " THEN LET BS-BS 
(2 TO > 

4508 IF BSC 1>-" " THEN GOTO 4507 
4510 IF Ic N >< >0 THEN GOTO 4545 
4520 IF G$< N >< >BSC 1 TO 15 > THEN 
GOTO 4545 

4530 LET IC N >-SET 
4532 LET FOUND-1 
4535 PRINT "OK..." 

4540 LET 1=1-1 

4545 NEXT N 

4555 GOTO 100 

5500 LET FOUND-0 

5505 FOR N-l TO 12 

5510 IF IC N >< >0 THEN GOTO 5530 

3515 i F NOT FOUND THLN PRINT "I 

HAVE THE FOLLOWING.." 

5520 PRINT TAB 10;" A ";0$CN> 
5325 LET FOUND-1 
5530 NEXT N 
5555 RETURN 

6000 IF SET-1240 THEN GOTO 6100 
6002 IF SET-1210 THEN LET SET-UP 
6005 IF SETO1450 THEN LET SET-U 


2575 IF BS-"CHEST" THEN PRINT "T 
HERE IS NOTHING IN THE CHEST- 
2580 IF BS-"CHEST" THE* GOTO 100 
2585 GOTO 499 

3090 IF BS-"" THEN PRINT "UNLOCK 
3005 IF &S« H " THEN INPUT E* 

3010 IF BS-"" THEN GOTO 3000 

3011 CLS 

3013 IF BS-" • THEN LET BS-BSC2 
TO > 

3015 IF BS—"DClOR" AND SETOl 130 
THEN PRINT "WHAT DOOR ?" 

3020 IF BS-"DGOR" AND SETOl 150 
THEN GOTO 100 

3025 IF. IC 7 >>0 THEN GOTO 499 
3030 IF B*-“DOOR" THEN LET UND-1 
3035 IF UND-1 THEN PRINT "CLICk 


3040 IF UND-1 THEN GOTO 100 
3845 IF BS-"CHEST" AND SETOl 180 
THEN PRINT "WHAT CHEST ?" 

3050 IF &S-"CHEST" AND SETOl 188 
THEN GOTO 106 

3055 IF BS-"CHEST" THEN LET UNC- 


3060 IF BS-"CHEST" THEN PRINT "C 
LUNK" 

3065 IF BS*"CHEST" THEN GOTO 100 
3070 GOTO 499 

3500 IF BS-"" THEN PRINT "FEED W 
HAT ?" 

'3505 IF BS»“" THEN INPUT BS 
3510 IF &S*"“ THEN GOTO 3500 
'3515 IF BS< >"DOG" THEN PRINT "DU 
N""T BE SILLY" 

•3520 IF BS< >"DClG" THEN GOTO 4*9 
3525 IF SETOl240 THEN PRINT "TH 
ERE IS NO DOG HERE" 

3530 IF SETOl240 THEN GOTO 100 
3535 IF IC 12»0 THEN PRINT "I HA 
VE NO DOG FOOD" 

3540 IF IC12>>0 THEN GOTO 100 
3545 LET 1=1-1 


6010 IF SET-UP THEN GOTO 20 
6020 IF I<3»0 THEN PRINT "THERE 
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IS NO WRY UP" 

6030 IF It3»G THEN GOTO 100 
6040 IF UP>0 THEN LET SET-UP 
6058 IF SET=UP THEN GOTO 20 
6066 PRINT "I CAN""T GO UP" 

6O70 GOTO 100 

6100 IF FED-0 THEN PRINT "THERE" 
"S fl DOG IN THE WRY" 

6110 IF FEO-0 THEN GOTO 100 
6120 LET SET-1270 
6130 GOTO 20 

6500 IF BS-"" THEN PRINT AS; " W 
HAT ?*• 

6310 IF BS-"" THEN INPUT B* 

6520 IF BS-"" THEN GOTO 6500 
6530 IF BSO" MANUSCRIPT" THEN GO 
TO 439 

6340 IF It 11 >>0 AND SETO1480 TH 
EN PRINT "I DO NUT HAVE ";BS 
6550 IF I< 11 >>0 AND SETO1480 TH 
EN GOTO 100 
6555 CLS 

6560 PRINT "THE MANUSCRIPT SAYS' 

PP3 - TM I 

SLAND " 

6570 GOTO 100 

7000 IF SETO106G OR I<9> THEN G 
OTO 499 

7010 PRINT "YOU HAVE SUCLESFULLY 
COMPLETED THE ADVENTURE." 

7015 PRINT 

7020 PRINT "YOUR TIME SHIP TAKES 
OF FOR YOUR OWN TIME." 

7025 PRINT AT 14,!2;" <fa*isP > " 

7026 PRINT AT 16,12;" <6*isP> " 

7027 PRINT AT 13,12;" CxsP >";TRB 
17; " < isP > " 

7038 LET 2=INT t RNDT250>+1995 
7040 FOR A-2003 TO 1933 STEP -1 
7050 PRINT AT 13,13;A 


7060 NEXT A 
7070 PRINT 
7100 GOTO 900O 

750O IF BS-"" THEN PRINT "LIGHT 
WHAT ?" 

7510 IF &*="" THEN INPUT BS 
7520 IF BS="" THEN GOTO 7500 
7530 IF It8»0 THEN GOTO 499 
7340 IF SET-1210 THEN LET NO-124 
0 

7550 IF NO>0 THEN PRINT "YOU ARE 
IN A SMALL ROOM. THERE IS A ST 
AIR CASE TO THE EAST AND R DAMP 
PASSAGE TO THE NORTH." 

7560 IF NOO0 THEN GOTO 100 
7578 PRINT "THAT DIDN""T DO MUCH 
GOOD" 

7586 GOTO 180 
8000 CLS 

8010 PRINT TIME 

SWITCH -==-== 

sassaoTiina^c" 

3020 PRINT 
8030 PRINT 

8040-PRINT " YOU ARE STRANDED 
IN THE DIM AND DISTANT PAST. YU 
U MUST FIND YOUR WRY BACK TO YUU 
R OWN TIME USING WHAT YUU CAN F 
IND ON YOUR JOURNEY" 

8050 PRINT AT 18,4;"PRESS A KEY 
TO START" 

8860 IF INKEY*-"" THEN GOTO 8060 
8070 GOTO 9509 

9000 PRINT "DO YOU WANT TO TRY A 
GAIN Y OR N" 

9010 INPUT B* 

9020 IF B*-"Y" THEN RON 
9030 STOP 

9100 FAST 

9101 CLS 
9110 DIM I<12 > 


9120 DIM M(12,lb» 

9130 FOR N-l TO 12 
9140 LET X-INT <RND*15> 

9145 LET I< N >-< X#30 ?* 1000 

9147 IF I<N>-1360 THEN GOTO 9140 

9148-IF I<N»1200 AND ItNXl27l 

THEN GOTO 9140 

9150 NEXT N 

9160 LET I<9>»1270 

9170 LET I<7>-1480 

9180 LET 1<11>-1480 

9190 LET It 3>-1060 

9200 LET USt1>-"ROPE" 

9210 LET OSC 2 >-"ROCK" 

9220 LET 0*t3>="LADDER" 

9230 LET 0*t 4 >-"GOLD RING" 

9240 LET OSt 5 >=“GUN" 

9250 LET OSt6 >-"13 AMP PLUG" 

9260 LET OSt7>="GOLDEN KEY- 
9230 LET OSt 8 >*"TORCH" 

9299 LET OSt9>-"BATTERY" 

9308 LET OSt10>-"LOG" 

9318 LET OSt11>-"MANUSCRIPT" 

9320 LET OSt12>-"MARROW-BONE" 
9400 SLOW 

9425 LET UND-0 
9475 LET UNC-0 
9480 GOTO 8000 
9500 RETURN 
9608 FOR N=1 TO l2 
9605 LET P-P+l 

9610 IF KN>=SET THEN GOTO 9630 
9615 IF P-12 THEN GOTO 90 
9620 GOTO 9650 

9630 IF NOT FOUND THLN PRINT ", I 

CAN SEE A_" 

9640 PRINT OStN> 

9630 NEXT N 
970O GOTO 1U0 
9808 SAVE "TV 
9960 GOTO i 








HREE TYPES of alien appear 
on your screen—a large ship, an 
orbiting alien and a descending 
alien. Move your laser base left with 5 
and right with 8. Fire with 1. You gain 
50 points for every orbiting alien de¬ 
stroyed, 100 points for every descend¬ 
ing alien destroyed, and you lose 50 
points for every descending alien which 


1 GOTO 5 

2 SAVE "PHOENIX ATTACK" 

5 GOSUB 2500 

7 LET HI“0 
10 LET SC-0 
15 LET L-5 
20 LET S-0 
■J0 LET T-l 
40 LET B-15 
50 FOR F-0 TO 19 
55 PRINT RT F,0;"<32*isP>" 

60 NEXT F 

70 PRINT "<4*isP 24*99'4*i»P>“ 
60 PRINT "<x*P'2*99'23*9h=2*99 

ISP >" 

90 PRINT RT 0,10;"<11*97>" 

91 PRINT RT L8j"<91) 0 O 0 O 
O 0 <92>" 

92 PRINT RT 2,e;”<i*P'5*94'9t’ 
97-9vb*9«> M 

100 LET Y-INT <RND*27>+2 
110 LET X-5 

150 PRINT RT 19,6>"<isP'91 9r ■1 
*P >" 

170 PRINT RT X, Y;"< 9y■9t >" 

160 PRINT RT X,Y;"<2*isP>** 

260 LET 8-B+<INKEY«-”8" RND B<2 
7>-< INKEY*-"5" AND B>0> 

210 IF INKEY®*"1" THEN GOSUB 15 
00 

220 LET X-X+l 

250 IF X-l 9 THEN GOTO 2000 
270 PRINT RT L,T;"<isP 91•92>" 
260 LET T-T+l 

296 IF T*27 THEN GOSUB 906 
300 IF Y<17 THEN PRINT RT 3,15; 

“Oh V 

310 IF INKEY®-"0" THEN GOSUB 10 
00 

320 IF Y>=17 THEN PRINT RT 3,15 
; ’X isP >" 

350 IF 30*1000 OR SC-1050 THEN 
LET S-S+l 

355 IF S=1 THEN PRINT RT 0.0;“ 

n 

400 IF X"ie RNL* <B+1»Y OR B+t-Y 
♦ 1 OR B+2-Y! THEN GOTO 3000 
500 GOTO 150 

900 PRINT RT L,T;"<3*lsP>" 

910 LET T-l 
920 LET L-L+2 

930 IF L-15 THEN GOTO 3000 
950 RETORN 

1000 REM shoot at mother ship 

1003 IF S<1 THEN RETURN 

1005 LET M*16 

1010 LET N-B+l 

1020 PRINT RT 0,0;"<i*P)" 

1030 LET S—300 

1050 PRINT RT M,N;"< 95 >" 

1055 PRINT RT M, N; "< isP >*' 

1070 LET M-M-3 

1098 IF M-3 RNL« Y>-17 THEN RETUR 
N 

1695 IF M-3 RNL) Y< 17 AND N<>15 T 


reaches the ground. Each time the 
orbiting alien succeeds in crossing the 
screen it will begin again, slightly 
lower. 

Once it is three-quarters of the way 
down the screen you will run out of 
time. The game will also end if a 
descending alien lands on your base. 

The ship can be hit only when an 


HEN RETURN 

1100 IF M-3 AND N-15 AND Y<1? TH 

EH GOTO 40O0 

1200 GOTO 1050 

1500 REM fire 

1510 LET M-13 

1520 LET N-6+1 

1550 PRINT AT M,N;"<9e>" 

1555 PRINT AT M,N;“<isP>“ 

1570 LET M-M-l 

1585 PRINT AT X, Y; '*< 9* '9t >" 

1590 PRINT AT X, Y; "<2*i»P >" 

1600 IF N-Y+l OR N-Y THEN GOTO 1 
90O 

1610 IF N=T OR N-T+l THEN GOTO 1 
800 

1620 LET X-X+l 

1630 IF X-1B AND CB+l-Y OR B+l-Y 
+ 1 OR B+2-Y > THEN GOTO 3000 
1650 IF X—19 THEN GOTO 2000 
1660 IF M-5 THEN RETURN 
1759 GOTO 1550 

1800 PRINT AT L,T;"50";AT L,T;"< 
3*1 sP >" 

1810 LET T-l 
1820 LET SC-SC+50 
1890 GOTO 150 

1900 PRINT AT X, Y>"loo";AT X,Y;“ 

<y*isp)" 

1910 LET SC-3C+100 

1990 GOTO 10O 

2000 REM missed erne 

2020 LET SC-SC-50 

2030 IF SC<0 THEN LET SC-0 

2050 GOTO 100 

2500 REM start 

2505 FOR F-0 TO 21 

2510 PRINT “<32*isP>" 

2520 NEXT F 

2525 PRINT AT 1,5;" Phoenix a 
ttack 

2530 PRINT RT 3,5,“out of deep s 
Pace falls" 

2540 PRINT RT 5,4;"the aliens wh 
ich you must" 

2550 PRINT RT 7,4;"destroyry t 
o destroy the" 

2560 PRINT RT 9,4?"orbitin9 a lie 
nsver head" 

2570 PRINT RT 11.4;"hovers the a 
lien mother" 

2580 PRINT RT 13,4;"shiPestroy 
it to end the" 

2590 PRINT RT 15.4;"alien Plot 
ove with keys" 

2600 PRINT RT 17,4;"5 and 8 and 
shoot with 1 

2619 PRINT RT 20,8;"9ood luck" 

2620 PRINT RT 20,0;"<10*isP>*■ 
2630 PRINT RT 19,8;"9ood luck" 
2648 PRINT RT 19,8;"<10*1sP>" 
2650 IF INKEY®-"" THEN GOTO 2610 
2660 RETURN 

3008 REM 9ame over 
3010 CLS 

2820 PRINT RT 5,0;"* SCORE* 


asterisk appears in the top left-hand 
corner of the screen. That means that 
your super laser is ready for its one shot 
of the game. The ship can be destroyed 
only by hitting the graphic A beneath it 
by pressing 0. 

Phoenix Attack was written for the 
16K ZX-81 by S McQuillan of Belfast, 
whose highest score so far is 12,200. 


HI SCORE**’ 

3022 PRINT "******************** 
************" 

3025 PRINT RT 7.5;SC 

303O IF SO-HI THEN PRINT RT 17, 

5;"NEW HIGH SCORE" 

3035 IF SO-HI THEN INPUT B* 

3050 IF SO-HI THEN LET HI-SC 
3060 PRINT RT 7,12;”* ";B*;"..." 

, HI 

3880 PROSE 200 
3090 CLS 

310O PRINT RT 1,3;“WE, THE RLIEN 
S, CHALLENGE YOU TO ANOTHE 

R GAME." 

3119 PRINT RT 5.4" PRESS ANY KE 
Y TO RESET" 

3120 PRINT AT 7,5;"...IF YOU DflR 
E." 

3130 IF INKEYSO*"' THEN GOTO 10 
3200 GOTO 3130 
3906 STOP 

4000 REM mother sh ip destroyed 
4010 LET SC-SC+1000 
4020 PRINT RT 9,9;"bonus'looo" 
4020 PRINT RT 11,4;"alien Plot d 
estroyed" 

4035 PRINT RT 13,7;"ir. this sect 
or 

4040 FOR F-l TO 30 
405O LET X-INT C RNL-Y23 >+6 
4055 LET A-INT <RND*24>+6 
4857 IF X>23 THEN LET X-15 
4058 IF fl>24 THEN LET A-15 
4060 LET Y-INT <RND*4'i 
4065 LET B-INT <RNL»*4) 

4O70 PRINT RT Y,X;"<9t'9w>" 

4077 PRINT RT B,A;"<leP>" 

4038 PRINT AT Y,R; M <98>" 

4090 PRINT AT B,X;"<9h>" 

4100 NEXT F 

4110 FOR F-0 TO 14 

*115 PRINT RT F,2; !, <23*isP )" 

4117 NEXT F 

4120 PRINT RT 8,5;"do you wish t 
o 9o to";RT 10,4;"another sector 
! <y\n>" 

4130 INPUT Z* 

4135 IF 2*-"Y" THEN GOTO 4200 

4150 CLS 

4160 GOTO 3000 

420O PRINT RT 8,5;"<24*isP>" 

4205 PRINT RT 10,4;"<27*isP)" 
4210 LET R-19 
4215 LET B-15 

4220 PRINT RT 7,10;"warp drive" 
4230 PRINT RT fl,B; "<3*1 sP >" 

4240 LET A-A-l 

4245 IF fl-7 THEN GOTO 4300 

4250 PRINT RT R,U;"C91•9r>" 

4266 GOTO 4230 
4200 REM new sector 
4310 PRINT RT fl,10;“C2*isP'9<•9< 
9W'9y *9* 9>'9>'2*lflP>" 

4320 LET S-0 

4330 IF RNO<—0.5 THEN LET S»1 
4350 GOTO 30 
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I N EMERGENCY STOP, two cars' 
appear on the screen. Enter how 
many metres forward you would 
like your car to move. The further you 
move the more points you gain but if 
you advance too far you will crash and 
be dragged away to hospital. In how few 
turns can you reach 100 points? 

Written for the 16K ZX-81 by Ste¬ 
phen Turner of Wolverhampton, West 
Midlands. 


300 PRINT RT 0,0j"WELL DONE YOU 
DID NOT BUMP THAT","ONE.." 

305 PRINT "RND YOU OET ";N;" PO 
I NTS. M 

310 PRINT "PRESS RNY KEY TO PLR 
Y AGAIN" 

320 IF INKEY*-"" THEN GOTO 320 

330 CLS 

340 GOTO 4 

400 PRINT AT 11.0;" 


1 GOTO 700 

2 LET N=0 

4 LET G-INT <RND*S0>+1 

5 LET R*-"< sP 1 2 3*96 >" 

6 LET -33>0" 

7 LET C»-"<sP 5*isP 

0 LET D9-" 0 0” 

9 CLS 

10 FOR R-0 TO 0 

20 LET B-INT <RND*10>+10 
25 PRINT AT ll,A;Ri;AT 12,A;B* 
; AT 13,A;C*;AT 14,A;D* 

50 PRINT AT ll,B;"C2*sP 3*96 >“ 
JAT 12, B j "<4*sP 1 90)'*;AT 13,B;"<5 
*i»P V'; AT 14,8)"0 0" 

55 FOR 1-15 TO 21 

56 PRINT "<32*9d>" 

57 NEXT I 

60 PRINT AT 0,0)"HOW FAR UNTIL 
HE HAS TO BRAKE?" 

65 PRINT "MRX-20" 


70 INPUT H 

75 IF H>20 THEN GOTO 70 
80 PRINT Hj" METREC S >" 

85 FOR X-l TO 50 

86 NEXT X 

90 PRINT AT 0,0;" 


100 LET A’A+1 
105 IF A-H THEN GOTO 20G 
110 PRINT AT 11,A;RJ;AT 12,A;BI- 
; AT 13,A;CS;AT 14,A;D* 

115 PRINT AT 11,B;"< 2*sP•3*96 >" 
j RT 12,8;"< 4*sP•98 >";AT 13,B;"<5 
*i»P>";AT 14,8;"0 0" 

120 GOTO 100 

210 IF A-B-14 THEN GOTO 290 
220 IF R>B-5 THEN GOTO 400 
290 LET N-N+A 

295 IF N>-100 THEN GOTO 1000 


410 FOR 2-1 TO A 

411 NEXT 2 

420 PRINT AT 11,A 
96 92)"; AT 12, A; "> 

sP>";AT 13,A;"<sP- 
;AT 14, A; “< 94 • 97'9. 

421 FOR 0-1 TO 50 
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422 NEXT fj 

430 PRINT AT 9,R;"<91 96 isP 96 
1 99 r 96 : 92)";RT 10,fl;"<sP 5*isP>" 
;RT ll,flj”<iftP'3*9h isP)“;RT 12, 
R;"<isP3*9f ■x sP>";fll 13, fl;"<5*i 
sP)";RT 14, fi;"(94-97 9r-9*isP'9 

3 >" 

440 FOR G-0 TO 49 

450 NEXT G 

455 PRINT RT 9, A;" 


460 PRINT RT 12, R; ‘< 95 • 2*isp • 2* 
92)";RT 12, fl;"<«P•94 2*xsP- 93)-; 
RT 14, R;" < 94 •3*9f'93 >" 

466 PRINT RT 10,R-l;"<96 io•96> 


“;RT 12 


467 FOR L-0 TO 20 

468 NEXT L 

472 PRINT RT 10,8-1;" ";RT 8, 
fl-3; "G< IsP 94 V 

473 PRINT RT 12,8;" “;RT 12 

/ fl i 11 11 

474 PRINT RT I3,flj'*<94 ^9U'96 95 
• 94 )" ; RT 14-R-l; "<6*1 SP >“ 

475 PRINT RT 8,fl-3;" ";nT 12, 
fi-4; "0";RT ll,A-5;"<96 x*P 94 

RT 10,fl-5;"<9r sP 9e>" 

'476 FOR D=0 TO 5 
477 NEXT D 

480 PRINT RT 12,fl-4;" ";RT ll,fl 
-5;" ";RT 10.R-5;" ";RT 14,fl 
-5; "0< isP -94 >" 

500 FOR P-0 TO 50 
510 NEXT P 
520 FOR V-0 TO R-7 
530 PRINT RT 12,V; " 0";RT 13,V; 
" < i+ >";RT 14, V; " < iu)" 

540 NEXT V 

545 FOR W-A-7 TO 0 STEP -1 
550 PRINT RT 12,W;"0 ";RT 13,U; 


";RT u,rt 

";RT 14,R 


u < l+)0 ";RT 

sP V 

560 NEXT U 


600 PRINT RT 0,0;“YOU WILL BE I 
N HOSPITAL FOR 10-,"WEEKS.AND WI 
LL LOSE 20 POINTS","FOR EXPENLES 

H 

605 PRINT "DRIVE MURE CAREFULLY 
ON YOUR "-"RELEASE." 

610 PRINT ,,,,“PRESS RNY KEY TO 
TRY RGRIN." 

620 IF INKEYS-"" THEN GOTO 620 

621 IF N<-0 THEN GOTO 630 
625 LET N-N-20 

630 GOTO 5 
700 FOR X-0 TO 23 
710 PRINT RT 21,X;"<isP> 0 0" 

;RT 20,X;"(i»P iP 5*isP)";fiT 19, 
X; "< isP ' sP 95 0'98 ; RT 18,X;"< x 

sP sP-3*96)" 

720 PRINT RT 17,X;"<xsP>";RT 16 
,X;"<xsP>";RT 15,X;"t isp>"?RT 14 
,X;"< IsP >";RT 13,X; "< xsP >";RT 12 
,Xj"< isp )“jflT 11 ,X; "< isP >";RT 10 
,X;"< isP V';RT 9,X; "< xsP >";RT 8,X 
i"< isP )" 

725 PRINT RT 7,X;"<xsP <";RT 6,X 
; "< i*P >”;RT 5,X; "< isP >“;RT 4,X;" 

< IsP >";RT 3,X; "< xsP ;RT 2,X; ,, < x 

sP 

727 PRINT RT 21,O;" 
n 

730 NEXT X 

731 PRINT RT 21. U; "< isP >" 

740 PRINT RT 21,24;" 0 ";RT 

28,24;"<4*sP 3TisP V’;RT i*,24;" 

< 4*aP 95 >0" ; RT 18,24; "< AW 2*96 
>" 

750 PRINT AT 21,26;" "; AT 2 

0,26;" ";RT 19,26;" ";RT 
10,26;" 

760 FOR V-30 TO 25 STEP -1 
770 PRINT RT 21,V;"<94 -sP>";RT 
20, V; "< i' ■ sP >";RT 19,V;"0 “ 

780 NEXT V 

790 FOR 020 TO 3 STEP -1 

809 PRINT RT 19,24;“<94>";RT 20 
, 24; "< 97 >" 

810 FOR G-0 TO 10 
020 NEXT G 


830 PRINT RT 19,24;" ";RT 20,24 
; "< 9* >" 

840 FOR G-0 TO 10 

858 NEXT G 

855 PRINT RT C,i;" 

M 

860 NEXT C 

865 PRINT RT 20,1;22*97)" 

870 PRINT RT 3,2;" *EMERGENCY 
STOP*" 

885 PRINT RT 5,2;"THE OBJECT OF 
THE" 

89E PRINT RT 6,2;"LAME IS TO ES 
TIMATE" 

891 PRINT RT 7,2;"THE DISTANCE 
BETWEEN" 

895 PRINT RT 8,2;"THE TWO CARS. 

M 

900 PRINT RT 9,2;"IF YOUR ESTIM 
RTE IS";RT 10,2;"WRONG THE" 

910 PRINT RT 11,2; "CONSECIUENCIE 
S WILL BL";RT 12,2;" fatal.." 

915 PRINT RT 13,2;"THL CLOSER Y 
OU GET";RT 14,2;"THE MORE POINTS 
";RT 15,2;"YOU GET.TRY AND GET"; 
RT 16,2;"10O OR MORE" 

920 PRINT RT 10,1-"PRESS RNY KE 
Y TO CONT." 

930 IF INKEY*-"" THEN GOTO 930 

940 GOTO, 2 

941 STOP 
1600 CLS 

1010 PRINT TAB 6;"EMERGENCY STOP 

n 

1020 PRINT TRB 6;"<14*9s>" 

1030 PRINT RT 6,2;"WELL DONE YOU 
GOT ";N;“ POINTS","AND WOULD PR 
SS YOUR DRIVING TESTFIRST TIME.. 

II 

1049 FOR fl—0 TO 100 

1045 PRINT flT 10,3;"Press any ke 

y to cont..." 

1050 IF INKEYS-"" THEN GOTO 1050 
1060 GOTO 2 

6999 STOP 

9000 SAVE "EMERGENCY STOP" 

9100 RUN 
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W ICKED GENERAL DOOM Q(quit), P(press), S(shoot), H(hit), 
has captured Princess Leya. R(run), M(move). Once you have en- 
Your mission is to find her tered M you will be asked F/B/S? (for- 
and take her to safety in your spaceship, ward, backward, sideways). 

Commands to use are T(take), D(drop), You can shoot only when you have a 


blaster and some ammunition. You can 
earn- only three things at a time, includ¬ 
ing the princess. 

Written for the 16K ZX-81 by Jona¬ 
than Huffer of Walsall, West Midlands. 
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9070 LET DSC 14 :•=" IN THE LOUNGE" 
9075 LET D*<15)="IN THE COMPUTER 
ROOM" 

9030 LET DS< 10>=''IN A TESTING LA 


9035 LET D*<17)=DS< 5 > 

9090 LET 0*08)="IN THE DEVELOPM 
ENT LAB" 

9095 LET D*< 9>*" IN A LONG CORRIO 
OR" 

9103 LET 0*< 20 >='* IN THE RESEARCH 
LAB" 

9185 LET D*< 23 >="LOST" 

9110 LET D*< 21>="NEAR THE VAULT 
ENTRANCE" 

9115 LET D*< 22IN THE VAULT" 
9120 LET D*<24)-"IN THE JAIL" 
9125 LET D*<25IN A JAIL CELL" 
9130 LET D*C 26 >-"AT THE SECURITY 
DESK" 

9135 LET D*< 2?)■"IN AN ELEVATOR" 
9140 DIM G*<15-25 > 

9145 LET U*<1>="A BLASTER' 

9150 LET 0*< 2 >="A SUPRISED GUARD 


9155 LET 3HINEST0NE NEC 

KLACE” 

9160 LET 0*< 4 >="PRINCESS LEYAS C 
APE" 

9165 LET U*< 5 )*"AN EVIL SCIENTIS 


9170 LET G*< 6 >="AN<<OUT OF ORDER 
»8IGN" 

9175 LET 0*<7>="AN ATTACK ROBOT" 
9180 LET Q®<8>*''THE PRINCESS" 
9185 LET 0*<9>="SOME AMMUNITION" 
9190 LET 0S<10)="SOME GRAFFITI" 
9195 LET 0*Ol)="AN APPLE CORE" 


9222 LET N*=“NOTHING" 

9225 DIM CS< 3-25> 

9238 FOR F=1 TO 3 
9235 LET C$<F)-N* 

9240 NEXT F 
9245 LET P=0 

9250 LET RO=INT <RNDt27>+l 


9255 SLOW 
9500 RETURN 

9900 SCROLL 
9910 SCROLL 

9915 SCROLL 
9999 RETURN 


9210 LET 0*04 )="A MAGAZINE 
9215 LET 0*0 5.''-"NOTH I NO" 
9220 LET S-0 


10 LET A-PI/'PI 
20 LET B-R 
30 LET C-B 
40 LET D-31 
50 LET E-20 
60 LET F-C 
70 LET S-PI-PI 
75 LET U*-"<1*>" 

80 PRINT AT A-B-"<iU>"; AT C-D; 
"O-V-AT E - F; "< 1" ; AT 17-26; "< 

x+- - AT 3-28-U* 

90 LET A«A-<INKEY*-"7" )+<INKEY 
*-" 6 " > 

100 LET B-B-<INKEY*-"5">+<INKEY 
•-" 8 "> 

120 IF 8-0 THEN LET B-30 
130 IF B-31 THEN LET 8-0 
140 LET C-C-<A<OKA>C> 

150 LET D-D-<B<D>+<B>D> 

160 LET F*F-< B<F >+< B>F ) 

170 LET E-E-< A<E )+< A>E) 

180 IF C-A AND D-B OR E-A AND F 
-B THEN PRINT "AHH";S;Z 
185 IF A-10 AND 6-16 OR A-3 AND 
8-20 THEN LET U*-"" 

190 IF A-17 AND B-28 AND US-"" 
THEN GOTO 350 
200 CLS 
300 GOTO 80 
350 LET S-S+l 
360 GOTO 7b 


D amsels in distress was 

written for the IK ZX-81 by 
Stuart Lang of Clarkston, Glas¬ 
gow. Manoeuvre your bold knight (in¬ 
verse O) with the cursor keys to rescue 
the damsel (inverse asterisk) and take 
her to the castle (inverse +). To make it 
easier you can run off one side of the 
screen and you will re-appear on the 
other. You must avoid the dragons (in¬ 
verse ") which guard her. 
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D O YOU WANT to know if you 
can see the future? 

Andrew Macgregor of Rainhill, 
Merseyside, sent ESP, an irresistible 
routine for testing your pre-cognitive 
abilities. Five abstract symbols are dis¬ 
played and you are invited to decide 
which will be selected. 

You have 25 attempts and could ex¬ 
pect, on a strictly statistical basis, a 
success rate of 20 percent, that is five. 
Any variation from that figure is signifi¬ 
cant. 

Everyone in the office seems strictly 
first-sighted but we feel sure that some 
of our readers will prove to be paranor¬ 
mal. (16K Spectrum). 


t J NUg«PE_l: INK 4: PRINT RT 

1,0} THE E.5.P TEST UPS INVE.NTE 
D BY PROF. vl. B • RHINE IN 1934.": I 
NK 0: INVERSE 0 
10 LET Z =0 
20 FOR t =1 TO 25 

30 LET rp=INT 16fRND): IF rp=0 
THEN GO TO 30 

32 PRINT RT 6,6;CHR$ 144;RT 6, 
10 ; CHR4 14-5; RT 5,14;CHR4 140; RT 
6,18;CHR$ 147;RT 6,22;CHR$ 14S 
34 PRINT RT 7,6;"1";RT 7,10;"2 
" ; RT 7,14; "3";RT 7,IS; "4";RT 7,2 

2 • "g" 

* 35 BEEP ,2,14: BEEP .4,11 
40 INPUT "Guess Which syibOl.E 
nter its No. "; a 

50 IF d <0 OR a>5 THEN GO TO 40 
50 PRINT RT 10,10;CHR4 (143+a> 

: PRINT RT 12,10;"YOU" 

70 PRINT RT 10,25;CHR$ 1143+rp 
): PRINT RT 12,24;"COMPUTER" 

•30 IF a =rp THEN LET Z =Z +1: FOR 
n =1 TO 25: BEEP . 1, a+n : NEXT n: 
INUERSE 1: PRINT RT 13,6;"CORR 
EOT = ";Z; INVERSE 0 

81 IF aorp THEN BEEP .3,(-S-a 


86 PRINT RT 20,10;"GUESSES LEF 
T = "; 25-1; *• " : PRUSE 25: NEXT 

t 

90 LET p=z/25fl00: PRINT RT 12 

' 1 i'*20X" SCOr€ iS -Normal 

100*"IF P >20 THEN PRINT RT 17,5; 
"Your EoP ability is ";<p-20J;** 

X above normal" 

105 IF t < =0 THEN STOP 
110 FOR n =144 TO 148 
120 FOR f =0 TO 7 
125 RERD X 

m v sr chr * 

ISO NEXT n 

lC-0 Sflifi 24,30,66,129,129,66,36 
82 .137,82,137,82,137,8 
180 DRTR 24,24,24,255,255,24,24 
^190 DRTR 153,90,60,255,60,90,15 
q 2 !So D 3I2 255,129,129,129,129,12 
210. STOP 
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L ESLIE ROBINSON and Trevor 
Leeming of Rotherham, South 
Yorkshire have speeded this short 
space invaders program by writing part 
of it in machine code. The object is to 
kill as many space invaders as possible 
before you run out of fuel or your laser 
over-heats. 

To enter the program first enter the 
short program lines 1 to 80. RUNning 
that should produce two quotation 
marks at the bottom of the screen. Next, 
the three columns of numbers should be 
entered. Enter each two digits separate¬ 
ly and work horizontally across the 
columns. Thus you would begin by- 
typing 2A ENTER and proceed to type 
0E ENTER. 

Once all that data has been typed-in, 
RUN the program again to place all the 
machine code in line 1. Lines 10 to 80 
should then be deleted. The remaining 
line 1 containing the machine code 
should then become line 1 of the main 
program (16K ZX-81). 


2A 

0E 

40 

06 

11 

36 

05 

0E 

21 

2B 

0D 

20 

FC 

5E 

1C 

ID 

20 

22 

36 

05 

0E 

21 

23 

0D 

20 

FC 

36 

00 

0E 

21 

2B 

0D 

20 

FC 

0E 

FE 

0D 

20 

FD 

0E 

FE 

0D 

20 

FD 

10 

D7 

36 

00 

01 

00 

00 

C9 

2B 

2B 

2B 

0E 

05 

23 

36 

00 

0D 

20 

FA 

0E 

IF 

23 

0D 

20 

FC 

36 

00 

01 

OC 

08 

C9 


1 REM zzzzzzzzzzzzzzzzzzzzzz; 
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 
zzzzzzzzzzzzzzzzzzzz 

10 LET R$="" 

20 FOR X*16514 TO 16588 
30 IF R$="" THEN INPUT R$ 

40 POKE X,16*CGDE R$+C0DE R$<2 
>-476 
50 SCROLL 

60 PRINT X," TO 2> 

70 LET RS=R5K3 TO > 

80 NEXT X 


2 GOTO 2000 
3 LET HS=8 

6 LET XX=3 

7 LET H$="??????" 

10 LET Q=0 

11 LET SCORE=0 
20 LET R=10 

30 LET L=0 

31 LET B=INT <RND*28> 

32 PRINT RT 21,0;"HIGH SCORE*" 
;HS;" BY ";H$ 

35 PRINT RT 4,B;"<sP*i**sP> M 
40 LET fl=R+<INKEY$="8" RND R<2 


9>-<INKEY**"5" RND R>2> 

50-PRINT RT 19, R-2; "< sP : 93 ! 9w • 
sP >";RT 18, R; 

60 IF INKEY* 85 "©" THEN LET L*US 
R 16514 

61 IF INKEY**"0" THEN LET XX*X 
X+l 

65 IF XX=50 THEN GOSUB 600 

70 IF LO0 THEN LET SCORE-SCOR 
E+l 

71 IF L=0 THEN LET Q=Q+1 

75 IF Q>500 THEN GOTO 1000 

76 IF Q>400 THEN GOSUB 500 

77 IF RND>.95 THEN GOSUB 700 
80 GOTO 30 
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500 PRINT RT 0,0;"FUEL LOW";RT 

720 NEXT Z 

0 , 0 ;"fuel low" 

721 PRINT RT 2,0;" 

501 RETURN 

722 RETURN 

600 FOR F=1 TO 100 

1000 PRINT RT 0,0;"YOUR TINE IS 

- 605 PRINT RT 0,15;"LRZER OVERHE 

UP YOU KILLED ";SCORE;" ALIENS 

ATED ";RT 0,15;;"laser overheate 

ii 

d" 

1010 IF SCORE>HS THEN PRINT "YOU 

606 LET Q=Q+.2 

HAVE ATAINED THE HIGH SCORE" 

620 NEXT F 

1015 IF SCORE>HS THEN PRINT "RLE 

630 PRINT RT 0,15;"LRZER OPERRT 

ASE TYPE IN YOUR NAME FOR QTH 

IONRL 

ERS TO LOOK RT AND WONDER" 

635 LET XX=0 

1016 IF SCOPE >HS THEM TKIPIIT W* 

640 RETURN 

1020 IF SCORE>HS THEN LET HS-SCO 

700 PRINT RT 4,0;" 

RE 

701 FOR 2=26 TO 0 STEP -2 

1025 FOR F=0 TO 100 

784 PRINT RT 2,2;"<94 : i* : 9w : sP* 

1026 NEXT F 

sP V 

1028 CLS 

705 LET R=R+<INKEY®="8" RND R<2 

1030 GOTO 10 

9)-<INKEY$="5" RND R >2 > 

2000 PRINT "SPACE INVADERS 

706 PRINT RT 19,R-2;"CsP* 93 *9w* 

KILL AS MANY AS YOU 

sP;AT 18, A; 

CAN BEFORE YOUR FUEL RUNS OUT 

707 IF INKEY$="0" THEN LET L=US 

USE TO MOVE 

R 16514 

5 LEFT 

710 IF LOO THEN LET SCORE=SCOR 

8 RIGHT 

E+15 

0 TO FIRE LRZER" 

711 IF LOO THEN PRINT RT 2,2;" 

7004 PAUSE 2000 

■i 

7005 CLS 

712 IF LOO THEN RETURN 

7386 GOTO 3 




1 REM "BOXING" 

2 GOTO 6000 

3 LET G=22 

4 G03UB 3000 
3 LET C*22 

0 LET W=0 
10 FOR fl-5 TO 25 
12 LET G*22 

20 PRINT FIT 15,R;"<9s>" 

30 NEXT A 
40 FOR B*13 TO 15 
45 PRINT RT B,3;"<9*>"jAT B,25 
j "< i*P )" 

50 NEXT B 
60 LET F»7 

70 PRINT RT 14,F; " <9u> ";RT 1 
3iF J " <99> "j RT 12,F;" < isP > ";R 
T 11, F; " 0 " 

60 LET V-INT < RND*3> 

62 IF V-l THEN LET F*F+1 
05 IF V»0 THEN LET F-F-l 

66 IF V=2 THEN GOSUB 1500 

67 IF F<7 THEN LET F-7 

68 IF F>23 THEN LET F*23 

210 PRINT RT 14, G;" <93> "j RT 1 
3, G; " <9a> ";RT 12,G; " <isP> ";A 
T 11, G j " 0 " 

220 IF INKEY**"8" THEN LET G=G+ 

1 

225 IF INKEY**"5" THEN LET G-G- 

1 

230 IF INKEY*«"0" THEN GOSUB 20 
00 

231 IF G-2-F RND INKEY**"0" THE 
N GOSUB 4000 

232 IF F+2-G RND V-2 THEN GOSUB 
4500 

235 IF G>*22 THEN LET G*22 

236 IF G<-6 THEN LET G-6 
240 GOTO 70 

1500 PRINT RT 12,F+2j "<97>0";flT 
12,F+2 j"< 97 >0";RT 12,F+2;" m 
1550 RETURN 

2000 PRINT RT 12,G-l;"0< 97 )"; RT 
12, G-l;"0< 97 ;AT 12,G-l j" " 

2010 RETURN 
3000 CLS 

3010 PRINT "WHAT IS YOUR NAME?" 


3020 INPUT N* 

3025 CLS 

3040 LET H=INT <RND*4 ) 

3045 IF H=0 THEN LET R*®*'CLUBBER 
LANG" 

3050« IF H«1 THEN LET A**"ROCKY" 
3055 IF H=2 THEN LET A*-"APOLLO" 
3600 IF H*=3 THEN LET R*="MUHAMID 
RLI" 

3700 PRINT RT 3,0;"IN THE BLACK 
CORNER IS ";TAB 4;N$;RT 6,0;"RND 
IN THE GREY CORNER IS ";TAB 4;A 

* 

3710 PAUSE 300 
3720 CLS 
3730 RETURN 

4010 PRINT RT 1,0;"THE WINNER IS 
"; N* 

4011 PRINT RT 11,F;" ";AT 12,F; 

"0 ";RT 13,F;"<isP ;RT 14,F;"<9 

g,gq y 

4020 GOTO 4700 

4510 PRINT RT 1,0;"THE WINNER IS 
"; R* 

4511 PRINT RT 11,G;" ";RT 12,G; 

" ";RT 13,G;" ";RT 14,G;" < 9w > 

9*.'-9 6 >0" 

4512 PAUSE 200 

4513 CLS 

4515 GOTO 5000 
4700 PAUSE 200 
4720 LET W=W+1 

4722 IF W=14 THEN PRINT RT 21,0; 
"THIS ONES FOR THE CHAMPIONSHIP" 

4723 PAUSE 50 
4725 CLS 
4730 GOTO 10 

5000 IF W*0 THEN PRINT RT 10,0;" 
YOU MAY RS WELL RETIRE" 

5010 IF W>0 RND W<=3 THEN PRINT 
"NOT BAD FOR R BEGINER" 

5020 IF W>3 RND W<-6 THEN PRINT 
"YOU MADE AMetur* boxing champ" 
5030 IF W>6 RND W<=10 THEN PRINT 
"YOU ARE NOW R PROFFESIGNEL" 
5040 IF W>10 RND W<*15 THEN PRIN 
T "YOU LOST IN THE WORLD 
CHAMPIONSHIP" 
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IF W>15 THEN GOTO 5060 

GOTO 7000 

FOR S*1 TO 100 

PRINT FIT 10.0;"YOU RR.E THE 

boxlri9 cham 
the world";RT 10.0;" 


T HE COMPUTER boxer stands 
at one side of the screen. It is 
controlled randomly, but fast- 
moving. Try to knock it out by moving 
backwards and forwards with keys 8 and 
5 and throwing punches with key 0. 

Boxing was written for the 16K ZX- 
81 by G Toplass of Stoke-on-Trent, 
Staffordshire. 


THEN GOTO 
THEN STOP 


1 


5080 NEXT S 
7000 PAUSE 200 

7010 PRINT "WOULD YOU LIKE RNOTH 
ER GO?" 

7016 INPUT RS 
7020 IF R**"Y" 

7030 IF R**"N" 

8000 CLS 

8030 PRINT RT 15.10;"BY G.TOPLRS 
S" 

8040 PRINT RT 21.0;"PRESS RNY KE 

Y FOR INSTRUCTIONS" 

8050 IF INKEY#*"" THEN GOTO 8050 
8060 FOR R*1 TO 22 
8070 SCROLL 
8080 NEXT R 

8100 PRINT RT 2.0;"THIS IS YOUR 
BOXER" 

8110 PRINT RT 4.15;"0<31**P«isP« 
31*sp 5 9a = Slfcap=gq V 
8120 PRINT AT 10,0j"YOU MOVE HIM 
FOREWORD WITH 5 RND BACKWARD 
S WITH 8. TO MAKE HIM 

THROW fl PUNCH PRESS 0" 

8180 PRINT RT 21,0j"PRESS ANY KE 

Y TO START FIGHTING" 

8180 IF INKEY*="" THEN GOTO 8190 

8195 FOR S=0 TO 22 

8196 SCROLL 
819? NEXT S 
8199 GOTO 3 
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10 CLERR GO SUB 8000 
20 RESTORE 9000« GO SUB 9000 
30 PRINT RT 21,0; FLRSH IM¬ 
PRESS RNY KEY 

48 IF INKEY#-"" THEN GO TO 40 
50 BRIGHT 0 

60 FOR rt=9 TO 21 PRINT RT 0,0 
;,, ' NEXT n 

70 PRINT RT 10,1;"Press ~Y~ fo 
r the instructions" 

80 IF INKEYS*"" THEN GO TO 80 
90 IF INKEYS*"Y" OR INKEY*-"y" 
THEN GO SUB 8200 
100 LET bS*"0" 1 LET d=l' LET m- 

0 

P-0' LET x-9> LET y-1 
LET yl-y 

PAPER 7- CLS ' IN 

K 0 

150 GO TO 500 

220 IF aS*"5" THEN LET bS=jS L 
ET d—1* BEEP .2,10- GO TO 500 
230 IF a#-"8" THEN LET bS-aS L 
ET d-l> BEEP .2,10' GO TO 500 
240 IF sS-"6" THEN LET bS-aS« L 
ET d=l ; BEEP .2,10* GO TO 500 
250 IF aS*"7" THEN LET bS-aS- L 
ET d—1> BEEP .2, 10 GO TO 500 
260 LET aS=INKEYS' IF aS«"" THE 
N GO TO 260 

270 BEEP .2.0 IF aS="H" OR aS- 
"h" THEN LET P=P + 1= IF P<-5 THEN 
BEEP .2,10 GO SUB 1000' GO TO 
500 

THEN GO TO 3C8 

THEN LET yl-y1+1 
THEN LET y1*y1—1 
320 IF bS="6" THEN LET xl=xl+l 
330 IF bS="7" THEN LET xl-xl-1 
400 BEEP .2,10' CLS 
410 IF y 1=0 RND xl<>15 THEN LET 
y1*1' PRINT RT 2,3;"You are try 
in9 to leave by";RT 4,3;"ttointt t 


hrou9h the entrance";AT 6,ll;"Tr 
y attain"* FOR n-0 TO 258' NEXT n 
' GO TO 500 

420 IF xl=15 AND yl = l THEN LET 
rc=m+i: GO TO 3800 
430 IF a< xl , y 1>=1 THEN PRINT RT 
10.2;"You cannot So throutth wal 
Is.";AT 12,12,"Try attain"' FOR n 
-0 TO 208 NEXT n' LET xl-x' LET 
yl*y’ GO TO 588 
448 LET m=ra+l 

500 CLS ' PRINT RT 1,6;"You are 
look ins ";dS< < VRL b*>-4> 

510 PLOT 8,0 DRAW 0,175' PLOT 
247,0 DRAW 0,175 
520 IF bS="8" OP bS="5“ THEN GO 
TO 800 

530 LET x—x1' LET y=yl 
540 LET dl-d' FOR i*l TO 5 
550 IF a<x+d,y >=1 THEN GO SUB < 
it10>+2088■ LET d-dl* GO TO 260 
560 IF a(x+d,y-l>=1 THEN GO SUB 
<it10>+2860’ GO TO 580 
578 GO SUB <i*10 >+2210 
580 IF aCx+d,y + 1>=1 THEN GO SUB 
<i*10 >+21 10 s GO TO 680 
590 GO SUB <i*10>+2160 
618 LET d=d+dl■ NEXT i 
628 LET d=dl« GO TO 260 
808 LET x=xl = LET y=yl 
810 LET dl-d FOR i=l TO 5 
315 IF y+d=0 AND x<>15 THEN GO 
TO <1*10>+2490 

817 IF y+d=8 OP y+d-32 THEN IF 
x*15 THEN GO TO <i*lO>+2590 
828 IF a<x,y+d>-l THEN GO SUB < 
i*10>+200O' LET d-dl' GO TO 260 
838 IF a< x-1,y+d >-l THEN GO SUB 
<i*10>+2060 GO TO 850 
840 GO SUB <i*10>+2210 
850 IF a< x+1,y+d >*1 THEN GO SUB 
<i*18 >+2110• GO TO 870 
868 GO SUB <i*10>+2160 
380 LET d-d+dl« NEXT i 


898 LET d-dl* GO TO 268 
1000 BORDER 7' PAPER 7> CLS > IN 
K 0 

1010 PRINT RT 0,8;"PLAN OF MRZE 
No.";P 

1O20 FOR n=l TO 20' FOR b-1 TO 3 
1 

103O IF a< n,b >=1 THEN PRINT AT n 

1040 NEXT b' NEXT n 

1850 IF x=9 RND y-1 THEN PRINT A 

T 9,8;">" 

1060 PRINT AT x,v; FLRSH 1;"X" 
1870 IF x< >9 OR y<>l THEN PRINT 
RT 9,1;">" 

1080 PRINT AT 15,1;"<" 

1100 PRINT £1;" YOU ARE WHERE 
THE ~X~ IS." 

1110 PRINT £0;" ENTRANCE = > 
EXIT - <" 

1130 FOR n-0 TO 50 
1140 BEEP .85,n= BEEP .05,50-n 
1150 NEXT n 
1160 CLS > RETURN 
2010 DRAW -239,0' PLOT 8,0- DRAW 
239,0 RETURN 

2028 PLOT 48,32' DRAW 159,0' PLO 
T 48,144' DRAW 159,8> RETURN 
2630 PLOT 88-56' DRAW 95,8> PLOT 
80,120 DRAW 95,0' RETURN 
2040 PLOT 104,72 DRAW 47,0- PLO 
T 104,104. DRAW 47,0> RETURN 
2050 PLOT 128,80' DRAW 15,0’ PLO 
T 120,96' DRAW 15,0' RETURN 
2860 RETURN 

2070 PLOT 8,0' DRAW 48,32' DRAW 
0,111 DRAW -40,32' RETURN 
2080 PLOT 48,32' DRAW 32,24- DRA 
W 0,64. DRAW -32,24' RETURN 
2090 PLOT 80-56' DRAW 24,16- DRA 
W 8,32' DRAW -24,16- RETURN 
2188 PLOT 104,72- DRAW 16,8' DRA 
W 0,16' DRAW -16,8' RETURN 
2110 PLOT 120.30= DRAW 3,8' DRAW 


O UR INITIAL reaction on play¬ 
ing Labyrinth, by Steven Vig- 
naux of Bridgwater, Somerset 
was that it surpassed comparable pro¬ 
fessional software. Perhaps that is not 
surprising for Vignaux has had more 
access to computers than the majority of 
our readers. 

His school owns five Spectrums and 
he was having lessons on them and 
practising on his ZX-81 at home until 
he upgraded to a Spectrum last Christ¬ 
mas. He is developing his programming 
skills and is learning machine code. 

On RUNning Labyrinth you will 
find yourself inside the entrance of a 
large maze, from which it is your object 
to escape. Three-dimensional views of 
the maze to north, south, east and west 
can be obtained at the press of a button. 
When you are completely lost, press 
“H” and a plan of the maze will be 
displayed briefly, but that option is 
available only five times during your 
journey (16K Spectrum). 
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-8,8: RETURN 

2120 PLOT 247,175= DRAW -40,-32: 
DRAW 0,-111= DRAW 40,-32= RETUR 
N 

2130 PLOT 207,32- DRAW -32,24- D 
RAW 0,64= DRAW 32,24- RETURN 
2140 PLOT 175,56- DRAW -24,16- D 
RAW 0,32= DRAW 24,16- RETURN 
2150 PLOT 151,72= DRAW -16,8= DR 
AW 0,16- DRAW 16,8- RETURN 
2160 PLOT 135,90- DRAW -0,8= DRA 
W 8,8= RETURN 

2170 PLOT 247,32= DRAW -40,0 DR 
AW 0,112- DRAW 40,0= RETURN 
2180 PLOT 207,56= DRAW -32,0= DR 
AW 0,64= DRAW 32,0= RETURN 
2190 PLOT 175,72= DPAW -24,0= DR 
AW 0,32 DPAW 24,0- RETURN 
2290 PLOT 151,80= DRAW -16,0 DR 
AW 0,16= DRAW 16,0- RETURN 
2210 PLOT 127,88= DPAW 8,0- RETU 
RN 

2220 PLOT 8,32= DRAW 40,0= DPAW 
0,112= DRAW -40,0= RETURN 
2230 PLOT 48,56= DPAW 32,0- DPAW 
0,64= DRAW -32,0= RETURN 
2248 PLOT 80,72= DPAW 24,0= DPAW 
0,32' DPAW -24,0= RETURN 
2250 PLOT 104,80- DRAW 16,8= DRA 
W 0,16= DRAW -16,0- RETURN 
2260 PLOT 127,38= DRAW -7,0- PET 
URN 

2509 PLOT 8,160= CRAW 239,0 PLO 
T 3.151' DRAW 239,0 PRINT AT 2, 
8;"E N T R A N C E"- LET d-dl> G 
0 TO 260 

2510 PLOT 48,136= DRAW 159,0= PL 
OT 48,127 DRAW 159.0 PRINT AT 
5,12;"ENTRANCE"- LET d=dl GO TO 

260 

2550 LET d-dl= GO TO 260 
2610 PLOT 48,136 DRAW 159,0 RL 
OT 43,127 DRAW 159,0 PRINT AT 
5, 14; "EXIT" = LET d=dl= GO TO 260 
2700 GO TO 260 

30Q0 BORDER 1 PAPER 1 CLS IN 
V- 7 BRIGHT 1 

301O PRINT RT 21,8; FLASH \,V sP 
= i95 2*SP i96 -53 i96 95 = 2*93 197 
• 95 s p 94:-52= 194 93 96 91 97 = 93 
95-i97 = *P- 195 93=194 = 92=195 5? 9 
5 = sP >“= RANDOMIZE USR 3288 
3820 PRINT AT 21-8; FLASH 1 ;"<sP 
=i95 2*sP=i9l i93 i92 95 2*93 19 
7 *P 96 92=SP i9l i93 i96 sP 95' 
sP'95-91 197 =195 SP i95 = SP = i94 = 9 
3■97 = sP >"' RANDOMIZE USP 3280 
3830 PRINT AT 21,0; FLASH 1;"<SP 
=191=i93=197-i95=sP 2*95 2*193 9 

2 = SP 1 95 2*sP = i95 = sP 96 94 192 =i9 

3 = 95'SP 91■i95 = sP = 195 = sP = i95 = SP • 
95 = sP >"= RANDOMIZE USP 3289 
3035 PRINT AT 21,0; FLASH 1;" 

H 

3040 FOR rt-0 TO 16 
3050 RANDOMIZE USP 3288 
3060 NEXT o 
3070 BRIGHT 1 

3030 PRINT AT 8,3; "You manned t 
o 9et out io" 

3090 PRINT AT 9,3;m " moves." 
3100>IF P-0 THEN PRINT RT 11,0;" 
You did not ask for heIP at all" 

.i 

3110 IF P=1 THEN PRINT AT 11,3;" 
You asked for heir- once. " 

3120 IF P-2 THEN PRINT AT 11,3;" 
You asked for help twice." 

3130 IF P>2 THEN PRINT AT 11,2;" 
You asked for heIP ";P;" times" 


3140 PRINT AT 15,0;"Would you li 
ke to* see the maze you have coo 
Suered a9air> ?" 

3150 PRINT AT 18,8;"Press ~Y~ if 
YES" 

3160 IF INKEYS--- THEN GO TO 316 
0 

3170 IF INKEY*="Y" OR INKEYS-"y" 
THEN GO SUB 4000 
3180 FOP. o-15 TO 18- PRINT AT n, 
0;,,= NEXT n 

3190 PRINT AT 15,0;"Would you li 
ke to Play a9aio ?“ 

3200 PRINT AT 13,3;"Press ~Y~ if 
YES" 

3218 IF INKEYS-"" THEN GO TO 321 
0 

3220 IF INKEYS-"Y” OP INKEYS-"y" 
THEN GO TO 3240 

3230 BRIGHT 0= BORDER 7= PAPER 7 
= CLS = INK 0= STOP 
3240 GO TO 10 

4900 BRIGHT 0= BORDER 7= PAPER 7 
= CLS = INK 0 

4005 PRINT AT 0,18;-PLAN OF MAZE 

4010 FOR o-l TO 20 
4820 FOP i-1 TO 31 
4030 IF a(o,i>-l THEN PRINT AT o 

, i; 

4040 NEXT i= NEXT o 

4050 PRINT €0;" PRESS ANY KE 

Y TO PETURN " 

4860 IF INKEYS=-" THEN GO TO 486 


0 

4078 CLS - RETUPN 

8000 BORDER 1- PAPER 1= CLS ■ IN 

K 7= BRIGHT 1 

8005 PRINT AT 21.0; FLASH 1;" 


8040 FOR o-0 TO 16 
8850 RANDOMIZE USP 3280 
8060 NEXT r. 

3070 PRINT AT 9,8;"ey Steveo Vi9 
oaux" 

8080 PRINT AT 12,2;"Please wait 
while I work out" 

8090 PRINT AT 14,12;"the maze" 

8109 RETURN 

8210 PRINT AT 10,1;" 


RANDOMIZE USP 3280 
8010 PRINT AT 21,0; FLASH !;"<sP 
= i95 2*sP = i96 = 93 = 96 = 95 = 2*93 -i97 = 
96 -SP- 94 92 -i94•93 1 96 = 91■97 = 93 - 9 
5- i97 sP = i95 = 93> i94 = 92= i95 = s.P -95 
-sP>"= RANDOMIZE USR 3280 
8020 PRINT AT 21.0; FLASH 1 ;"<sP 
= i95 2*sP-i9l-i93 =i92 = 95 = 2*93•i9 
7-sP-96 92 SP-i9l = i93-i96-SP =95' 
sP-95 = 91•i97 =i95■sP■i95 = sP = i94 = 9 
3 = 97•sP >"= RANDOMIZE USR 3280 
8030 PRINT AT 21,0; FLASH l;"(sP 
• 191 = i93=i97=i95 = sP'2*95 = 2*i93 = 9 

2 = sP = 95'2*SP = 195 = SP =96:94= i92= j9 

3 95 sP = 91,i95 SP = i95'SP «i95 = sP- 
95sP>" = RANDOMIZE USR 3280 
8035 PPINT AT 21.0; FLASH 1;" 
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8220 PRINT AT 6,2;"The object of 
the 9aroe is to","find your way 
out of the maze." 

3230 PRINT " If while trying to 
find your way out of the maze 
you find youare completely lost 
then you can9et some help by Pre 
ssin9 "H". Once you have Presse 
d the key the screen will clea 

r and you. will be shown a Plan 
of the maze. This will indi 

cate your Position in the maze 
/ the exit and the entrance. Ho 
wever the Plan will only remai 
n on view for a short Period o 


f time." 

8240 PRINT RT 21,6," PRESS RNY 
KEY TO CONTINUE 

8250 IF INKEYS="" THEN GO TO 825 
0 

8260 BEEP .2,0= BEEP .-2,10 
3270 FOP n»6 TO 21= PPINT RT n.0 
i ,,= NEXT n 

3275 PRINT RT 6,0;" Another thi 
n9 about the Plan of the maze i 
s that you are only9iven >cces? 
to it five times." 


8280 PPINT 


Once the 9ame star 


ts you will be 9iven a. thro* dim 


ensional representation of th 
e maze as you would see it. Th 
is view is 9overned by the dire 
ction in which you are look in 
9. You can look either north,so 
uth,east or west." 

8290 PRINT " When you move you 
move one Place forward in the 
direction you are lookin9." 
8300 PRINT RT 21.0;" PRESS RNY 
KEY TO CONTINUE 

8310 IF INKEY*="" THEN GO TO S?1 
0 

8320 BEEP .2,0= BEEP .2,10 
8330 FOP n®6 TO 21= PRINT RT -.0 
•,,« NEXT n 

8340 PPINT RT 6,0;"Keys for look 
in9 in different direction-- " 
3350 PPINT WEST SOUTH 
ORTH EAST" 

8360 PRINT " 5 6 

7 9“ 


DDT 1 LET L-VRL "S' 1 

2 LET 8«SGN PI 

3 CLS 


8370 PRINT '"Rs indicated by the 
arrows abovethe key." 

8375 PRINT '"Press ~0~ to move o 
ne Place forward in the dire 

ction soo are lobkin9." 

8380 PPINT Press ~H~ fo 

r HELP” 

8390 PPINT RT 21,0," PRESS A 
NY KEY TO PLAY" 

8400 IF INKEYS 3 "" THEN GO T0 340 
0 

8410 BEEP .2,0= BEEP .2,10 
8428 BORDER 7= PAPER 7: CLS IN 
K 0 

8430 RETURN 

9000 DIN a<20,31> = DIM dS<4,5> 
9010 FOR n»l TO 20 
9020 READ b* 

9930 FOR i-1 TO 31 

9940 LET a< n.i>=VAL b*<i> 

9079 NEXT i 

9080 NEXT n = BEEP .2,0 
9090 BEEP .2,10 

9095 FOP n-1 TO 4= READ dS( n > N 
EXT n : RETURN 

9100 DATA "111 Ill! Ill 11 111 111 111 
1111111111" 

9110 DATA "101001000101000000080 
0100100001 " 

9120 DATA "100011010101011101111 
0010001101 " 

9130 DATA "1010010111010101O1OOO 
10101000O1" 

9140 DATA "101111010081010881010 
1010111111 " 

9150 DATA ”100000000111011111010 
1000100001 " 

9160 DATA "101010111000800000000 
1310101101" 

9170 DRTR "101010100011810101010 
1010000011" 

9180 DRTR "001010101010310101018 
1010111001 " 

9190 DRTR "181110000008113101011 
1010101111 " 

9200 DRTR "1010101•1110010100810 
0010000001" 

9210 DRTR "1110001010111O9011011 
1110101101 " 

9220 DRTR "100011101010111109010 
0000101001 " 

9230 DRTR "111110000000101091111 






1111101011 " 

9240 DRTR "001011101011101013003 
3301301001" 

9253 DRTR "101000001000001010111 
0101111011 " 

9269 DRTR "101011111101111110081 
0100000001 " 

9270 DRTR "100001000831000001111 
0111011101 " 

9280 DRTR "101013010100011100000 
0001000001 " 

9290 DRTR " l\ 11 11111111111111111 
1111111111 " 

9380 DRTR "WEST","SOUTH","NOPTH" 
"EAST" 


W HEN THIS GAME is RUN 
you find yourself at the bot¬ 
tom of the screen with a 
horde of dark shapes above you in the 
air. Maddened by that intrusion on 
your airspace, you rush from side to 
side, using keys “1” and “A”, shooting 
at the shapes with key 0. The game ends 
with your score if you shoot an empty 
space or if you run out of time. 

Space Craze was written for the 1K 
ZX-81 by P Roberts of Leominster, 


10 FOR N=11 TO 20 STEP .03 
20 IF RND >.5 THEN PRINT RT N,R 
ND* 15+2.1 " + " 

30 LET L=L+< INKEY$*"fl M RND L< 1 
7 >-<INKEY$="1" RND L>2> 

40 PRINT RT 21,L-2;“<sP=93=isP 

• 94 : £,p ’) '« 

50 IF INKEY$="0" THEN COSUB 13 

0 

60 NEXT N ' 

100 PRINT RT N;0;S 
110 PAUSE VRL "4E4" 

120 RUN 

13U FOR R”CODE "a" TO CODE "<9d 
V' STEP -CODE "< 91>" 

131 PRINT RT fl,L; 

132 IF PEEK <PEEK 163*38+256*PEE 
K 16399>*21 THEN GOTO 140 

133 PRINT "< 95 >" 

133-PRINT "<95 >" 

134 PRINT RT R,L; " " 

136 NEXT R 

137 GOTO VRL "100" 

140 LET S*S+CODE "<91> M 

141 PRINT " " 

142 RETURN 




Xk 


% 


.sr 










m 
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80 LET Y*Y+<INKEY*«"0")-<INKEY 
S»"1 M > 

90 PRINT AT X-l,Qj" " 

103 IF INKEYS-"E" RND Y-Q THEN 
LET X-X-2 


C LIMBER is a reaction game 
guaranteed to test the co-ordina¬ 
tion of the most lightning-fin¬ 
gered operator. You must make your 
way through a series of parallel walls in 
which a magical gateway appears at 
random positions. You are represented 
on-screen by A and manoeuvre yourself 
with keys 1 and 0. 

If you are quick enough to position 
yourself under an opening you can pro¬ 
ceed to the next level by pressing E. 
When you reach screen-top your time 
will be displayed. 

Climber was written by David 
Cockburn of Manchester. (IK ZX-81). 


4 REM "fi CLIMBER" 

5 LET S-VRL "0" 

10 LET X-VflL "19“ 

20 LET Y»1 

25 LET Q-INT <RND*18>+1 
30 FOP fl-1 TO 9 
40 PRINT RT R*2,1;"<eighteen i 
nverse SPRCEs>" 

50 NEXT fl 

65 FOP U*»0 TO 15 

66 LET S-S+l 


110 PRINT RT X,Y-lj" fl " 

112 IF X-l THEN GOTO 300 

115 IF INKEY*-"E" RND Y-VRL "0 

THEN GOTO 21 

120 NEXT U 

130 GOTO 25 



'Utl 



10 

CLS 

400 

INPUT C 

20 

PRINT "CONNECT 4" 

410 

IF C<*0 OP 0*9 THEN GOTO 4 

30 

PRINT RT 21,1;"12345678" 

00 


40 

FOR X-6 TO 1 STEP -1 

420 

IF C*<C>="0" THEN GOTO 490 

50 

PRINT RT X+14,0;7-X 

430 

PRINT RT 2,0;" 

60 

NEXT X 

500 

FOR X-5 TO VRL <CS<C>>*13 S 

70 

LET G-0 

TEP 1 

. 

30 

LET C*-"66666666" 

510 

PRINT RT X,C;GS 

100 

IF G<>0 THEN GOTO 200 

520 

PRINT RT X,C;" " 

110 

LET GS="<inverse SPRCE>" 

530 

NEXT X 

120 

GOTO 300 

540 

PRINT RT X,C;G* 

200 

LET GS-*"<9r.jPhic H>" 

600 

LET C*<C>-STR* <VRL (CKO) 

300 

LET G*N0T G 

-1 > 


310 

PRINT RT 2,8;G*;" COLUMN?" 

700 

GOTO 100 


C ELIA SIMS of Gt Yarmouth, 
Norfolk has managed to squeeze 
a Link 4 game on to an unex¬ 
panded ZX-81. The display is surpris¬ 
ingly complete, even to the extent that 
the counters can be seen falling down- 
screen into position on the frame. 

Link 4 is a version of the parlour 
game for two people in which you are 
required to place four counters in a row 
before your opponent. In this listing, 
the frame for the counters is represent¬ 
ed by the numbers 1 to 8 and you are 
requested to enter the number appropri¬ 
ate to the column you wish to occupy. 

The four counters can align horizon¬ 
tally, vertically or diagonally. Black al¬ 
ways leads, so players should take turns 
in using it. 

The listing does not check for win¬ 
ning lines so it is up to the player to 
shout “Yippee” as appropriate. (IK 
ZX-81). 


SINCLAIR PROGRAMS May 1983 


29 





























//////. 


SPECTRUM MORSE 


S PECTRUM MORSE, an excel¬ 
lent Morse code training program, 
must be one of the most effective 
educational listings we have published. 
It is difficult to think of any other 
method of home tuition which could 
work so well. The author of the routine, 
T Garner of Manchester, says that 
when Morse code is being studied “the 
individual letters should be sent from 


the stan at the speed the student wishes gives longer thinking time. Proficiency 
to attain. The space between the letters at speed 10 should ensure that the 
can be long at first, then reduced gradu- student will have no difficulty with the 
ally, keeping the letters at the same receiving part of the Morse section in 
speed and thus reducing the thinking the radio amateurs’ examinations.” 

tunc * A full list of instructions is given at 

“The letters and numbers in the ihe start of the program and the morse 
program are sent at approximately 15 from the Spectrum speaker sounds ex¬ 
words per minute. Selecting a low speed traordinarily life-like. (16K Spectrum). 


g>REM © Tom Garner 19 
10 POKE 33658,8 
30 DIM P*<36,5J 
30 DIM Bt(36) 

- C * = "«BCDEFGHIUK 
RUUUXYZ1234S67890" 

50 FOR Nil TO 36 
60 LET B*(N)=C*(N» 

70 REPO P»(N) 

60 NEXT N 

90 DRT9 “PBCCC"."BPPPC 
•• , "BPPCC" , "PCCCC" , "P9BPC 
" ,"RPPPC","PPCCC","flBBBC 
" ,"flBflflC" 

100 DRTP "BBCCC","BPCCC 
■' , ''PBBRC" , “BBPBC" , “PBPCC 
” ,"BCCCC”,"PP8CC","PROBC 


R EACH BLOCK"; LET S=0 
1130 FOR F=1 TO I 
1130 INPUT Of 
1140 PRINT F; 

1150 IF 0*-USIF) THEN PRINT ” CO 
RRECT. •: LET S=S*1 

1160 IF 0$OU$ (F) THEN PRINT ” Y 
DU GPVE ”, O*, " IT UPS ”;U*<F) 
1170 NEXT F 

1160 PRINT "YOU UERE CORRECT ”;S 
TIMES OUT OF ”;I 
1900 INPUT ;"DO YOU UPNT TO SEE 
THE MORSE PLPHBBET «Y^N)?”;I* 
1910 IF I$t >“Y“ THEN GO TO 510 
1930 CL S 

30e0 PRINT ,,TPB 1, -P . ; TPB 13 

,"M —”,TPB 35;"Y 

3010 PRINT TPB 1; "B --",TPB 13 

. N -. -;TPB 25; "Z 

3030 PRINT TPB 1,"C -.-.";TPB 13 

, "O-" ; TPB 35, "1 .-” 

2030 PRINT TPB 1,"D -..".TPB 13; 

”P - ; TPB 25, ”3 -.-•* 

2040 PRINT TPB 9;"E .";TPB 13;"O 

--- TPB 25, ”3-—- 

30S0 PRINT TPB 1,”F TPB 13 

, - R - -. TPB 2S; "4 ....-" 

2360 PRINT TPB 1,"G ,TPB 13; 

•S ...":TPB 35;"5 ." 

2C70 PRINT TPB 1,"H -";TAB 13 

"T -“.TPB 25;"6 

2060 PRINT TPB 1,"I ..".TPB 1, , ” 
. . - ’ . TPB 25; ”7 

2090 PRINT TPB 1;"U .-",TPB 13 

; "U TPB 25, "B-.." 

2100 PRINT TPB 1;"K -.-",TPB 13; 
-J . - ",TPS 35, "9- 


340 IF Oft=P* THEN LET P=P*1 
350 IF CSWPS THEN PRINT F,“. Y 
OU ENTERED ”, O*, ** IT UPS ", P* 

360 PAUSE 200 
370 RETURN 

360 PRINT ** HORSE TRP 
I N E R ”...,"P BLOCK OF FOU 
S NUMBERS PND","LETTERS WILL BE 
SELECTED PT " , "RPNDOM PJJD YOU U2 
-L BE ASKED","TO INTERPRET THEM. 

IF YOU RRE“ , "URONC- THEN YOU UIL 
~ BE ABLE- ,’TO COMPPRE YOUR INTE 
RPRETPTION WITH THE CORRECT PNS 
JER.",,,"SPEED 10 UILL GIUE PPPR 
DX 15",“UORD5 PER MINUTE. SLOUER 
SPEEDS","UILL INCREPSE THE INTE 
PUPL","SETwEEN LETTERS TO GIUE Y 
OU","MOR£ TIME FOR INTERPRET PTIO 


BPB8C","BBPPC 
RPPBB",“AAAAB 
BBPPP",“BBBPA 

360^" 

130 REM SET UP SPEED 
1*0 INPUT "SPEED 1 TO 10 : I 

IF I>10 OR I<1 THEN GO TO 140 
150 LET A=.06: LET B*.18 LET C 
=0; LET 0=10/1 
160 GO TO 400 

170 REM GENERATE BLOCK OF 4 FIG 
JRES PND SOUND CODE 
180 DIM 

190>FOR M=1 TO 4 
200 DIM p* (4.5> 

310 LET R=INT CRND»36*1) 

230 LET DSCM>=R*IR) 

230 LET E*CM)=B*<R» 

240 FOR N=1 TO 5 

350 BEEP URL D*IM,N),15 

370 NEXT N 

380 PPUSE B*D»S0 

290 NEXT M 

291 PPUSE .42 iD *50 

300 IF Z=2 THEN GO TO 1000 
310 INPUT ;"ENTER INT ERPRETPTIO 

^330 Let p*=e*(U *e*(2)»e*c3>*e* 

'330 IF Q*=P* THEN PRINT F;” RIG 


110 DRTP "BPRBC 


390 GO SUB 

*00 PRINT 


, w iuu wmhi 1 u in'-u 

T YOUR RNSUER 1. PFTER EPCH BLOC 
X 2.UHEN SEQUENCE COMPLETECE 

NTER 1 OR 21 ”; *J 
**0 IF 0=2 THEN LET Z=2 
*50 CLS 
160 lET P^« 

465 DIM US(1,4) 

470 FOR F=1 TO I 
4B0 GG SUB 17B 
490 NEXT F 

495 IF Z=2 THEN GO TO 1100 
500 PRINT ,,“YOU UERE CORRECT ~ 
, P; ” TIMES OUT OF ”; I 
505 GO TO 1900 

510 PRINT ,..."ENTER *Y* FOR PN 
OTHER GO." 

520 INPUT U* 

530 IF US»“Y" THEN CLS 
540 IF U»«”Y" THEN GO TO 380 
SS0 IF U*<>“Y“ THEN STOP 
10ee REM 

1010 LET 'J$(F1 B EK1).E*(2) »ES(3) 

• EG 14) 

1030 GO TO 490 
1100 CCS 

1110 PRINT “ENTER YOUR RNSUER FO 


2120 FOR M=0 
3130 FOR N=1 
PRINT PT 
3 AU5E 50 
2150 FOR P = I 
.-160 SEEP URL 
2170 NEXT P 
?163 PRINT PT 
“190 NEXT N 
3 200 NEXT M 
3210 GO TO 51 
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SB COSUB 9500 

CO CLS 

61 PRINT AT 7,12;"<9*'5*9? Or> 
";AT 8/12 j m <9S>5*sP ! 98>" 

62 PRINT AT l2,l2i"<95-5*«P-98 
>";AT 13. 12;"<9ui 5*96 9-1 >" 

65 LET 3—0 

70 DIM A*<26,36) 

100 LbT A*<3 -"<2*sP'32*lsP >" 
110 LET A*( 4 )-"< 2*sP ■ isP 9h : sP 1 
if* sp 5*9h sp 5*9h < 2tsP • 10*9h 3* 

' * i*>" 

120 LET A$< 5>-"<2XsP•lsP•Oh sP ’ 
9h'2*sP • 4*9h ■ 3*sP ; xm -2XaP 'XS'SP' 
10*9h-••9h : • xsP >" 

130 LET A*<6>*"<2*sP ■ isP 2XSP -2 
*9h 5*sP 1 xr* 5*9h • 2*sP I0*9h if* 9 
h • if* • xsP >" 

140 LET fl*C7 >*"< 2*sP isP '9h sP 
x s'6*9h•sP•6*9h•SP•10*9h•• 9h - 
isP >" 

150 LET RS<0>-"2*»PisP 2*9h’2* 
sP • 3*9h • 3XsP • fe*9h • 3*sP ■ if* • 3**P • 4 
*9h• ' : 'is xsP >" 

160 LET AS< 9 >* •'< 2*sP = l sP «3*9h • s 
P • 9h sp ; .ir* sP 9h ■ sP • 6X9h • sp • 5*9h 
• 2XsP 9h•3*sP-Oh sP = xsP >" 

170 LET R*< 10 >- '*< 2*sP - i sP 9h 5* 
SP • 3*9h sP 1 9h • sP if* fcXsP if* 3X9h 
is'2*sP • 3*9h• sP ' lSp 
ISO LET AS< 11 2*SP ISP 9h is 
-5*9h 2XsP xs - 2*9h xs • 2*9h sP if* 
sp Oh•sP•5*9h■sP■3*9h-sP isP >" 
130 LET A*C12>-"<2*sP isP 9h sP 
•9h ls sP 4*9h sP 2*9h -sp *2*9h •i 
t. Oh sf Oh • x s 5*9h • sP ' 3*9h sp l s 


210 LET RJK14 2XsP isP Oh sP 

• Oh•2*SP 4*9h•sp 4T0h 3*SP•is 9h 

• sP 1 5*9h • sP • 3t0h • xr* isP >" 

220 L ET M< 15 )-"< 2*SP XSP Oh sP 
7*9h is 4*9h•sP•2tOh sP•9h■sP'5 

• Oh • f-P • 3*9h ' if* l sP >" 

230 LET R*<16>«*'C2*sP’isP-9h'it 
'2*sP 'is 4*9h '• sp • 3*9h • sP xs sP • 8 
*9h : 2*sP it if* - xt-sP xs-3*9h sp - 
ISP >" 

240 LET A*<17>“"<2XsP•isP 9h•sP 
2*9h • sP • 4*9h * sP = ls ■ if* • 2*sP • Oh • s 
P 3*9h sP 5*9h•SP 4*9h )" 

258 LLT Rif. 18 >="< 2*sP isP 4*9h • 
sP 4*9h ' 3*sP • 3*9h • 11 SP • l r*' 2-tsP 
5*9h=2*sP ? is - ii* it isP >" 

260 LET RS<192*sP isP 4*3h 
sP'x s 3*9h is-6*9h sP•2*9h sP 7t 
OhsP■2*9h'iSP>” 

270 LET AS< 20 >*•"<2XsP isP 5*9h 
lt : sP'2*9h•SP•fc*9h : sP'2*9h is 7* 
Oh SP 2*9h'isP >" 

280 LET RC<21>*"<2XsP isP'6*9h ! 
2*sP Oh ' 2XsP ' xs' if*' 3*Oh sP • 2*Oh 
sP 'Oh if* xs - it 4*sP '2X9h■ isP >“ 
230 LET R*<222-tsP • xsP -7*9h* 
x s • x f* • sP : 2tOh • 2tsP • i t sp x s • 5-taP 
•5*9h-it 2t9h-isP>" 

30O LET R*< 23 >= "< 2-tsP • i sP = 8*9h • 
it 2l*Oh 1 isP >" 

310 LET R*<24)=" ( 2XsP•32XisP >" 
400 LET R=14 
410 LET B-17 
420 LET 

500 LET R-R-K INKEY*’-"6" >-< INKEY 

Ti~"7" > 

510 LET B~B+<INKEYS-"8">-<INKEY 
*="5" > 

800 PRINT RT 9,12;"<05•sP>";R*< 
R-l.B+l TO B+3 >; "< sP ■ 08 >"; RT 10, 
12; "<05 sP >" >RS<fi,8+l TO B+3>;"< 
SP • 08 r; RT 11,12; "< 05 sp >";R*< m 
1/B+l TO B+3 >; "< SP 03 >";RT 12, 1>- 
; "< 05 5XsP 98 >" 

810 PRINT RT 10,I5;e* 

9O0 IF R*< R, b+-8 >-"C is ■" THEN GO 
SUB 1000 

910 IF R*<fl,B+2>-"<x*>“ THEN CO 
SUB 9O0O 

920 IF R*<R,8+29h>" OR fl*<fl 
xsP >" THEN GOTO 2000 
930 IF R*(R,B+2>-"< if*>" THEN GO 
SUB 1100 

940 IF fl*C R,B+2 >="<11 >" THEN CO 
SUB 120O 


A NEW PHENOMENON is re¬ 
placing the squashed frog 
games which used to dot the 
pages of Sinclair Programs. Hapless pro¬ 
grammers are being trapped in mazes of 
great complexity, with an assortment of 
enemies and handicaps confronting 
them. The number of ways in which a 
maze can be used is growing steadily. 

Tomas Whitlock of Hull confronts 
16K ZX-81 users with a maze of which 
only a small area dan be seen at one 
time. While scratching for the exit you 
have the chance to gain points by killing 
monsters and picking-up treasure. Full 
instructions are given once the program 
is RUN. 


993 GOTO 500 


1000 LET B*~-<ix>" 

1010 LET fi*< R,B+2 >~ M “ 

1020 RETURN 
110G REM XFIGHT* 

1110 PRINT RT 10,15;" ";RT 10,15 
; "; "; RT 10,15; ;RT 10,15;" + '*;R 
T 10,15;"-";RT lO,15;;RT 10,1 
5;"/";RT 10,15;"*";RT 10,15;"£"; 
RT 10,15;"<";RT 19,15;"> M ;RT 10, 

15;..;RT 10,15;"<“;RT 10,15;"? 

";RT 10,15;".’';RT 10, 15; ". " ;RT 1 
0.15;" " 

1120 IF BS-"<ix>" THEN GOTO 1140 

1130 GOTO 2100 

1140 LET R*<fl,B+2" 

1150 LET es="X" 

1160 LET S=5+100 

1165 PRINT RT 0,0;"SCORE=";S 

1170 RETURN 


1210 PRINT fll 0,0;"9C0RE“";5 
1220 LET RS< R,B+2 " 

1230 RETURN 
2000 CLS 

2005 PRINT "YOU JUST BLEU YOURSE 
LF TO BITS ON THE ELECTRIFIED U 
ALLS. " 

2010 PRINT "YOU SCORED : "; 

2O20 GOTO 3020 
2100 CLS 

2110 PRINT "YOU RAN INTO fl MONST 
ER. YOU DID NOT HAVE A SWORD." 
2120 PRINT "YOU SCORED• 

2130 GOTO 9020 
9O00 CLS 

9O10 PRINT "CONGRATULATIONS. YOU 
HAVE FOUND YOUR WRY OUT WITH'"; 
9020 PRINT S;" POINTS." 

9022 PRINT "ANOTHER GAME <YESxNO 
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2 LET W-VAL 
E-CODE "*•* 

l LET 

F—CODE 

«• . if 

• 1 1 T 

L“CODE 

"t" 

’ LEI 

H-COL'L 


; LET 

T-CODL 

•*/ y< 

f LET 

O-CODE 



1 0 -PRINT AT T. H i "<94 • 04 >" >NT W 
• F; "< O'- • 04 06 >" , A1 L, r; ■•< 92 08 0 
2 V NT E,F;"(sP Ob oi >" 

80 PAUSE 0 
40 CLS 

L - 70 PR I NT RT T,H; "< 08 • l *P ' 04 > " 

rt w,u,"<99>">at .. .. 

;RT E,H; "<93' isP 04>";rtT F, H; " 
(04 *P • 9w >";RT H.H; "(2tsP • isr- >" 
80 PAUSE 0 
85 CLS 

00 PRINT RT T,F;"C2T99)";flT W, 
t. M <4tisP >";RT L, F; "(2*i-sP >";AT 
! , r '• 8*03 >•',RT F, L; ’’( 6*i sP >"; RT 
2*isP sP•isP>" 

0, F;"<2*i£P >"iRT C 
Oy•2*isP'0t>";rt1 COD 
L ">”,E; "( isP *2*sP * xsP >" 

105 PRINT RT CODE "<",E; "< isP • 2 

t&P • 1 sp >“ 

110 PAUSE u*Pl 
.20 IF INKEY*< >"" THEN STOP 
140 PRINT RT CODE ">",E;"< sP *2* 
iSP • sP •"; RT 0/ CODE "t" ; "< 10 • sP • 2 
tisp -sP * io>" 

ISO FOR 2-PI TO RNDtCODE "<9d>" 
160 IF INK£Y*<>"" THEN PRINT "G 
OT HIM";K 
170 NEXT 2 
180 PRINT "GOTCHR" 


9660 PRINT " =THIS WRY. 


ma^e-moriste 
by tMhitlo 


> ? 

9923 INPUT 2* 

9024 IF 2*'1Y” THEN RUN 

9025 IF Z*<1 "N" THEN GOTO 9029 

9026 GOTO 9023 
9029 GOTO 9800 

9500 PRINT - 
rs 
ck " 

9501 PRINT 

9502 PRINT 

9510 PRINT "YOU HAVE TO FIND YOU 
R WRY OUT OFfl 22X32 MA2E, WHICH 
IS STOCKED WITH TREFrSURE, SWORD 
MONSTERS." 

•YOU START OFF RS RN 
GET R SWORD BY MOV IN 
OVER THE <is>. " 


S/ AND 
9520 PRINT 
X, AND YOU 
G YOUR X 
9525 PRINT 
9530 PRINT 
it), 

S; <iw>, 

DC/ < is>. " 

9535 PRINT 

9540 PRINT "POINTS-- 

9550 PRINT "TREASURE 


lOOO PTS., 
KILLING A MONSTER 1 


00 PTS.” 

9559 PRINT 
9568 PRINT ,," 

NT1HUE.- 

9570 IF INKEY*-"' 
3580 CLS 
9590 PRINT 
RIDOR WILL 
ENDING ON 


ANY KEY TO CO 


THEN GOTO 3570 


fYC YOU MOVE. THE COR 
SCROLL PAST YOU, DEP 
WHICH KEY YOU PRESS. 
THIS GIVES THE EFFECT THAT THE - 
CORRIDOR IS MOVING PAST YOU." 
9595 PRINT 

9600 PRINT "CONTROLS < *• 

9610 PRINT ”8—RIGHT,” 

9620 PRINT "5-LEFT," 

9630 PRINT 
9640 PRINT 
9645 PRINT 
9650 PRINT 
9660 PPINT 
•9670 PRINT 


"6-DOWN," 

"7-UP. " 

"<im>*MONSTER," 
"< is '“■“SWORD, " 
“<it>= TRERSURE. " 


9681 PRINT " ANY KEY TO CON 

TINUE." 

9682 IF INKEY*-"" THEN GOTO 9632 

9683 CLS 

9690 PRINT "IF YOU TOUCH THE WRL 
LS OR THE BORDER ROUND THE MA2 
E. YOU WILL GET FRRZ2LED TO fi CR 
ISP. - 

9695 PRINT ,,"<isP>^THE BORDER,“ 

9697 PRINT "<9h>=THE WALLS." 

9698 PRINT 

9701 PRINT ,,"THE OBJECT OF THE 
GAME IS TO FIND THE EXIT (MAR 
KED <i*» WITH ASMUCH TREASURE A 
S’ POSSIBLE. " 

9705 PPINT ,,"BUT BEWARE; DO NOT 
USE UP ALL THE SWORDS, DECAUS 

E THERf ARE MONSTERS GUARDING 

THE ESCAPE ROUTE." 

9709 PRINT 

9710 PPINT " ANY KEY TO BE 

GIN. " 

9720 IF INKEY*-”" THEN GOTO 9720 
9720 fifTTlM 


T IM DERBY of Hedge End, 
Southampton has, by devising a 
relatively simple game, managed 
to incorporate a very good graphics 


display in this program for the 1K ZX- 

81 . 

The cowboy walks quickly towards 
you. Once his guns appear in his hands 


you must shoot him by pressing any 
key, before he shoots you. Good reac¬ 
tions are needed; your reviewer man¬ 
aged to shoot the cowboy only once. 


20 
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::::::::: 

ssisaiaiiS 


F-T.SHAffc (NpE> 


?T0CK5’.IWUA^ 


A LIST of commodities is dis¬ 
played on the screen, together 
.with the current value of one 
share. When it is your turn you may 
buy or sell shares in the commodity 
available at that time. You have the 
choice of playing yourself, the com¬ 
puter or a friend. 

Stock Market was written for the 
16K ZX-81 by Stephen Gibbon of 
Whickham, Newcastle-upon-Tyne. 


WO 

LLS 


190 LET O-CODE INKEY* 

310 

GOSUB 1000 

30 

gosub 6boo 


200 IF 0-0 THEN GOTO 19a 

320 

GOTO 110 

100 

SLOW 


210 IF G>53 AND 0<57 OR 0-29 OR 

saa 

PRINT AT 19,0;" 

110 

FOR J-l TO Q 


0-50 THEN GOTO 250 



120 

PRINT AT 1,7;J ," 


220 G0SU6 S 


";AT 18,0; 


";AT l,16;f«J> 


230 PRINT "PARDON?" 

510 

RETURN 

130 

LET E-1NT < RND#12 )+l 


240 GOTO 190 

600 

FOR 1-1 TO 120 

140 

LET A-0+l2*<J-2 > 


250 GOSUB S 

610 

NEXT I 

150 

LET U-E+A 


260 GOTO 2000+1000*<0-39>fl500* 

620 

RETURN 

160 

PRINT AT E+4,0;CHR* <CODE 

A 

< 0-56 )+6900*< 0-55 >-2730*< 0-50 > 

700 

PRINT AT E+4,0;A*< E >;TAB 13 

*<E, 

l >+128) 


270 PRINT AT 1,16;“ 


"i TAB 18;" ";TAB 23;" 

170 

IF J-l AND L-31 THEN GOTO 

2 

AT 1.16; f1< J > - 


";AT E+4,13;N(E>;TAB 18;N 

000 



280 G0SU8 S 

<E+12>;TA6 23;CCE> 

100 

PRINT AT 18,0;"BUY OR SELL? 

290 GOSUB 700 

710 

RETURN 

II 



300 NEXT J 

1000 

FOR 1-1 TO 12 
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1010 IF 2(1)00 THEN GOTO 1030 
1020 LET 2< I >— 1+2*<VAL X*>3> 
1030 LET T-VAL X* 

1040 LET U-VAL X* 

1050 IF T+U-7 THEN LET Z<1>=-Z<1 

> 

1060 IF T-U THEN LET 2< I .’>■0 
1070 LET C< I >=C< I >+Z< I >*2*< T+U> 
1080 IF CXI XI THEN LET C< I )-l 
1090 IF C<I»1E6 THEN LET C< IXl 
E6 

1100 PRINT AT 1+4,23;" 

;AT 1+4,23;C< I > 

1110 NEXT I 
1.120 RETURN 

2000 IF N(C X1 OR M<J)X<INT < RN 
0*7 >+5)*C< E ) > THEN GOTO 2030 
2010 LET F-N<C> 

2020 GOTO 4540 

2030 LET F-INT <RND*<M< J VC<E>>> 
2040 IF F+N<C >>3999 THEN GOTO 20 
30 

2050 GOTO 5000 

3000 PRINT "SURE RBOUT FINISHING 
< Y OR N '>?" 

3010 IF INKEYS="Y" THEN GOTO 304 
0 

3020 IF INKEY*-"N" THEN GOTO 270 
3030 GOTO 3010 
3040 CLS 

3050 PRINT "I HOPE YOU ENJOYED T 
HE GAME" 

3060 FOR 1-1 TO 12 

3070 LET M< 1 >-M< 1 >+< N< I >*C< I > ) 

3080 LET M< 2 >-M< 2 >+< N< 1+12>*C< I > 

3030 NEXT I 

3100 PRINT AT 10,0;"PLAYER 1 
£" ;M<1) 

3110 IF Q-l THEN GOTO 3130 
3120 PRINT AT 14,0;"PLAYER 2",,, 
£"; M< 2 > 

3130 PRINT AT 19,5;"ANOTHER GO < 
Y OR N )?" 

3140 IF INKEY*-"Y" THEN RUN 
3150 IF INKEY*-"N" THEN STOP 
3160 GOTO 3140 

4000 PRINT "HOW MANY SHARES OF " 
; A*< E)j" DO YOU WISH TO PURCHA3E 
?" 

4010 INPUT F 

4020 IF F*C<E»M<J> OR A8S INT F 
OF THEN GOTO 4010 
4030 GOTO 5000 

4500 IF N<C)-0 THEN GOTO 4600 
4510 PRINT "HOW MANY SHARES OF " 
;A*< E>;" DO YOU WISH TO SELL?" 
4520 INPUT F 

4330 IF F>N< C > OP ABS INT FOF T 
HEN GOTO 4320 
4540 LET F—F 
4558 GOTO 500O 

4600 PRINT "YOU HAVE NONE OF THE 
SE SHARES" 

4610 GOSUB P 
4620 GOSUB S 
4630 GOTO 290 

5000 LET M< J >"I*K J )-< C< E )*F > 

5010 LET N<C>-N<C>+F 

5020 LET C< E >—C< E )+1 NT <<RND*<C< 

E V2 > >*F/4 ) 

5030 IF C< E X 1 THEN LET C<E>-1 
5040 IF C<E»1E6 THEN LET C<E)-1 
E6 

5050 IF N<C»9999 THEN GOTO 5508 

5060 GOTO 270 

5520 LET N< C >-N< C >-F 

3530 PRINT "A DEALER HAS STOLEN 

";F;" SHARES" 

5540 GOSUB P 
5550 GOSUB S 
5368 GOTO 270 

6500 PRINT TAB 9;"INSTRUCTIONS"; 
TAB 9;"<12*97THERE ARE THR 
EE DIFFERENT PLAYERARRRNGEMEN13« 
",,,,"1> TWO PLAYER GAME", ,,"2 > 
ONE PLAYER GAME",,,"3> ONE PLAYE 
R V THE ZXB1",,,"PRESS KEY 1 , 2 
5500 GOSUB S 

3510 LET F-INT <<RND*200>+N<0>-9 
999) 



OR 3 TO INDICATECHOICE" 

6510 LET L-CODE INKEY* 

6520 IF L<29 OR L>31 THEN GOTO 6 
510 

6530 CLS 

6540 LET Q-1+1*<L<>30> 

6556 PRINT “THE GAME COMPRISES 0 
F A TABLE WHICH GIVES INFORMAT 
ION ABOUT ALL OF THE SHARES",, 

,"EACH LINE OF THE TABLE SHOWS : " 
,,,"1> NAME OF THE SHARE E.G. GO 
LD",,,"2 > THE NUMBER OF THIS TYP 
E OF SHARE HELD BY EACH PLA 


YER' 


• • • 


"3) COST PER SHARE E.G. £ 


350",,," - 

-",,<"PLAYERS TAKE TURNS" 

AND L-29 >;<“YOU ARE PLAYER 1“ A 
ND L-30XC "YOU ARE PLAYER 2" AND 
L-31>,,,"PRESS A KEY TO CONTINU 
E" 

6560 IF INKEY*-"“ THEN GOTO 6560 
6570 CLS 


6580 PRINT “THE FIRST LETTER OF 
THE SHARE INPLRY IS INVERTED E.G 
. SOLD",,,"THE SHARE IS CHOSEN A 
T RANDOM - ,,,"THE PROMPT IS "“BUY 
OR SELL?"PRESS 1 OF THE F 
OLLOWING KEYS' ",,," B ALLOWS YOU 
TO BUY SHARES",,," S ALLOWS YOU 
TO SELL SHARES",,," Cl ENDS THE 
GAME ",,," R SAVES THE GAME ON T 
APE",,," M FINISHES YOUR GO",,," 
a kev to start" 


6710 LET A*<4>="PLATINUM" 

6720 LET A*(5 >*"GEMS" 

6730 LET ft*<6>="COMP.PARTS" 

6740 LET A*<7>="MICROFILM" 

6750 LET R*< 8 "DRUGS" 

6760 LET A*<9>-"WEAPONS" 

6770 LET A*<10>-"MISSILES" 

6780 LET A*<11"PLANE SPARES" 
6790 LET A*<12>"SILVER" 

6800 LET C*-"3505003004802001004 
00150150200075200" 

6810 DIM 2<12> 

6820 FAST 

6830 FOR 1-0 TO 11 

6B40 LET Z<I+l>-0 

6050 LET N< 1 + 15=0 

6860 LET N<1+135-0 

6870 LET C<1+15-VAL C*<1*3+1 TO 

1*3+3> 

6080 NEXT I 
6890 CLS 

6900 PRINT TAB 10;"STOCK MARKET" 
,"PLAYER MONEY-£",,," SHARE 
-PL 1-PL 2-COST","- 


6910 FOR 1-1 TO 12 

6920 PRINT R*<I5;TAB 12;"-";N<I> 

," ;N<1 + 12>;TAB 22;"-";C<I> 

6930 NEXT I 

6940 LET X*-"INT <RND*65+1“ 

6950 LET P-600 
6960 LET S-500 

6970 PRINT "- 


6590 IF INKEY*-"" THEN GOTO 6590 
6600 CLS 

6610 PRINT “THERE WILL BE A SHOR 
T DELAY" 

6620 DIM R*<12,12> 

6630 DIM M< 2 > 

6640 DIM C<12> 

6650 DIM N< 24 > 

6660 LET M< 1 5-3E3 
6670 LET M< 2 )-M< 1 > 

6680 LET A*<15-"GOLD" 

6690 LET fl*<2>-"R.ELEMENTS" 

6700 LET R*<3)-"DIAMONDS" 


6980 RETURN 

9910 PRINT "CONNECT TAPE THEN PR 
ESS ''"S'"'" 

9920 IF INKEY*<>"S" THEN GOTO 99 
20 

9930 PRINT "START TAPE" 

9940 GOSUB P 

9950 SAVE "STOCK MARKEt” 

9960 PRINT "STOP TAPE" 

9970 GOSUB P 

9990 GOTO 280 

9990 SAVE "STOCK MARKEt" 

9999 RUN 
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T HE SEARCH for a Space Invad- 
ers-type game with all the fea¬ 
tures of the arcade version 
continues. The major problem remains 
one of speed. Timothy Shaw of Nor¬ 
wich, Norfolk has overcome that to 
some* extent by some clever lateral 
thinking. The invaders in the sky are 
unaggressive and do not shoot. Directly 
above you, though, is a giant centipede 
which shoots to defend the invaders. 

Because of its proximity it is far more 
difficult to avoid the centipede’s shots 
than it would be to avoid the shots of 
the more distant invaders (16K Spec¬ 
trum). 



15 CLS ' PAPER O' INK 7 EiORL'h 
R 1« CLS 

30 LET hs-Q 

40 CLS ' PAPER 0* INK 7 bQRDE 
R 1■ CLS 

tO GO SUB 9050 
90 LET c-0 
lOO LET 1-3 
ISO CLS 
300 LET 

205 RESTORE 260 
210 FOR r*1 TO 0 
220 PERU d* 

230 FOR u=0 TO 7 
240 READ 3 POKE USR d*+u,3 NE 
XT u 

250 NEXT r 

260 DATA "*",231,36,126,126,126 
,126,36,231 

270 DATA "b",8,05,127,55,62,28, 
34,65 

230 DATA "c",60,102,102,219,219 
,126,90,129 

290 DATA ” d •'.0,0,24,60,126,255, 
255,255 

300 DATA "©",0,24,60,90,153,153 
,255,90 

310 DATA "f",0,24,60,126,255,25 
5,66,66 

320 DATA "9”,0.35,255,251,251,0 
,223,223 

330 DATA "h",129,8,33,4,80,4,16 
0,9 

40O LET a=15 

402 PRINT INK 0; PAPER 3;AT 0,2 
2;"HIGH * ";hs 

403 PRINT AT 0,0; INK 0; PAPER 
3;"SCORE" 


405 PRINT INK 4;0T 21,0;"LIVES 

d d cT 

415 LET x=6 LET y=6* LET 7=6 
412 LET h=20 

415 DIM xS<3,h> 

420 LET X*< 1>*“ 33333 3 ? 

3 3_ " “ 

430 LET x*< 2 >= " b b b b b b b 
bb ' ~ 

440 LET x*< 3 >=" c c c c c c c 


c c " 


470 IF h<0 THEN LET h*2 


500 PRINT INK 4; 

PAPER 

0; 

BRIGH 

T 1;AT l,x;x*<1,2 

TO h> 



520 PRINT INK 2; 

PAPER 

0; 

BRIGH 

T 1;AT 3,y;xS< 2,2 

TO h) 



540 PRINT INK 6) 

PAPER 

O; 

BRIGH 

T 1,AT 5,z;x*<3.2 

TO h > 



569 IF l<=0 THEN 

PRINT 

AT 

21,6; 

" " GO TO 9000 




608 PRINT INK 6; 

PAPER 

0,AT 20, 

3 ;" d " 




640 IF ZNKEYC-"*! 1 

* THEN 

GO 

TO 70 

00 




650 IF INKEY*-" ' 

• THEN 

GO 

SUB 5 


000 


660 IT INKEY**"3" AND 3>2 THEN 

LET 3*3-1 

665 IF lNKEY*-"d" AND *<27 THEN 
LET 3=3*1 

670 PRINT INK 6; PAPER 8; AT 20, 
3 ;" _d “ 

680 GO SUB 2000 

690 LET 9=INT < RNOT3 >■ IF 9*0 T 
HEN LET x=x+l 
700 IF 9=1 THEN LET y«y+i 
710 IF 9=2 THEN LET z=z+l 


720 IF x>7 THEN LET x=6 
730 IF y>7 THEN LET v=6 
.740 IF 7 >7 THEN LET 7=6 
750 PRINT INK 5; PAPER 2;AT 20, 
0,"99”;AT 20,30;"99" 

760 GO TO 470 

2009 PRINT INK 2; PAPER 0;AT 16, 
c;" ffffr " 

2O05 PRINT AT 16,26; INK 5; PAPE 
P O;" 990999 " 

2007 PRINT AT 16,0; INK 5;"99999 

91' 

2010 LET c-c+1- BEEP .001,20' IF 
c>25 THEN LET c=6 

2020 LET d=INT <RND*3> 

2025 INK 7 

2030 IF d< >0 THEN GO TO 3000 

2049 PLOT OVER l;c*Q+32,39' DRAW 
OVER 1;0,-25 BEEP .099,39' PLO 

T OVER l;c*6+8,39- DRAW OVER 1;0 
,-25 PLOT OVER l;c*8+32,39- DRA 
W OVER 1.0,-25' PLOT OVER l;c*B+ 
6,39: DRAW OVER 1;0.-25 

2050 PRINT INK 4; PAPER 0;AT 16, 
c;" fffe " 

2955 PRINT AT 16,26; INK 5; PAPE 
R 0;" 999999 " 

2069 IF c>25 THEN LET c=0 

2070 IF CODE SCREENS <20,c+4><>3 
2 THEN GO SUB 8000 GU TO 3000 
2080 IF CODE SCREEN* <20,c+l><>3 
2 THEN GO SUB 8000- GO TO 3000 
3010 RETURN 

5000 IF SCREEN* <16,3+1>»"" THEN 
GO TO 5100 

5010 PLOT OVER l;a*e+12,16: DRAW 
OVER 1,0,150: BEEP .02,40 PLOT 
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H GO TO 450 

7020 IF CODE SCREEN* <5,b>»0 THE 

N GO TO 450 

7022 NEXT b 

7025 PRINT AT 10,0;" 


7030 PRINT FLASH 1;AT 10,0; "**** 
***BONUS*END*OF*SHEET*******" 
7033 BEEP .5,10’ BEEP .5,-7- BEE 


7835 PRINT AT 18,8) 


7837 IF 1~3 THEN LET s^s+100 

7838 IF 1*2 THEN LET s*s+?5 

7839 IF 1*1 THEN LET s-s+50 
7048 PRINT INK 8; PAPER 3;AT 8,0 
;"SCORE• ";s- GO TO 418 

2000 FOR 9*1 TO 5 ’ PRINT INK. 9; A 
T £8*4+1; "JT • BEEP . 1,9*2 * NEXT 
9 LET 1-1-1’ PRINT INK 3;AT 21, 
1+7;" "’ BEEP .5,10= BEEP .2,-1 

0’ BEEP .5,35- RETURN 
9008 PRINT FLASH I;AT iO,0;“***ft 
LL*L I VES*LOST*END*OF*GAME*** " 
9805 IF s>hs THEN LET h**s 
9807 PRINT INK 0; PAPER 3;AT 8,2 
2;"HIGH ",hs 

901O BEEP .5,0’ BEEP .5,0* BEEP 
.5, IQ 

9020 INPUT "PRESS ENTER FOR ANOT 
HER GAME"; LINE z* 

9030 CLS GO TO 40 

9O50 PRINT AT 0,8; INK 0; PAPER 

4;" SPECTRUM INVADERS 


OVER 1;.s*8+12,16 1 DRAW OVER 1;0 
, 150 

5820 IF CODE SCREEN* <5,a+l><>32 
THEN LET s-s+10’ LET h*h-2’ GO 
TO 505O 

5030 IF CODE SCREEN* <3,a+l><>32 
THEN LET s=s+20 LET h»h-2- GO 
TO 506O 

5048 IF CODE SCREENS <1,3 + 1 >032 
THEN LET s=s+30’ LET h*h-2' GO 
TO 5370 

5042 FOR i*l TO 30= NEXT i 
5845 RETURN 

5050 PRINT INK 7;AT 5,a+l;‘2L B 
EEP .2,7- PRINT PAPER 8;AT 5,3+1 
; H "• GO TO 5080 

5O60 PRINT INK ?;AT 3,3+1; M JV' B 
EEP .2,7- PRINT PAPER 8;AT 3.3+1 


;" " GO TO 5080 

507O PRINT INK 7;AT 1,3+1;"h"= B 
EEP .2,7= PRINT INK 7; PRPER 0;A 
T 1,3+1;" "= GO TO 5980 
5088 PRINT INK 0; PAPER 3;AT 0,8 
."SCORE ";s 
5090 RETURN 

5100 PLOT OVER 1;3*8+12.16- DRAW 
OVER 1;O,24■ BEEP .01,-15 PLOT 
OVER I>3*8+12,16 DRAW OVER 1;0 

,24 

5118 PRINT INK 6; AT 10,8; "HIT EtA 

RRIER"’ BEEP .81,25 PRINT AT 10 

,8"• RETURN 

7800 FOR b=0 TO 31 

7O10 IF CODE SCREEN* <l,b>-0 THE 

N GO TO 450 

7912 IF CODE SCREEN* <3,b>=0 THE 


906O PRINT '"In this version of 
sPacemvaders"'' " you must dest 
roy the inv3ders""" but watch o 
ut for the movinO"''" centiPede 
with its double Uzer" " "The inv 
3ders sometimes disappear"''" to 
o so destroy them fast "''"These 
are the keys""" A-to move th 
e base left"'" D-to move the b 
ase ri9ht"''" SPACE-fire Q 

-New sheet" 

9065 PRINT FLASH 1;AT 21,18; "GOO 
D LUCK I!" 

9070 INPUT "Press enter to Play" 
; LINE z* 

9075 RETURN 


L AND YOUR small aircraft on an 
aircraft carrier in the Atlantic. 
To do it successfully you must 
bear in mind that your fuel is running 
out rapidly, your airspeed increases 
with your level and the number of times 
you land, and that the ship below you is 
also moving. Move upwards with key 
“6”, and down with key “7”. 

Atlantic Lander runs on the IK 
ZX-81 and was written by A Powell and 
T Goodhand of Bracknell, Berkshire. 


ATLANTIC LANDER 


20 LET S-VAL "O" 

25 PRINT "INPUT LEVELS 1-5 .*•" 

27 INPUT 2 

28 IF ZCVAL "0" UR Z>VML "5" T 
HKN GOTO VRL "27" 

38 LET A*INT < PNDtVAL "15"> 

48 LET F*VAL "50" 

50 LET B*F-F 

6U FOR C*VAL "25" TO VRL "0" C 
TEP VAL "-!" 

70 PRINT AT VOL "SO",C;"<94•8* 
sp - 98 

80 PRINT AT VAL "21",C;"<9r 3* 
i sP = 9e >" 

98 PRINT AT A,B;“<2*9w>" 


180 LET F-F-VAL "l" 

185 IF F<VAL "0" THEN GOTO VAL 

"248" 

109 IF A-VAL "28" THEN GOTO VAL 

" 178 " 

110 LET R*A+<INKEY**"fc">-<INKEY 

*»"7" > 

120 LET B*fc+< 2^2 >+< . 2 AND Z“l> 

121 IF INT B>VAL “30" THEN LET 
B-VRL "0" 

140 CLS 

150 NEXT C 

160 GOTO VAL "68" 

170 IF INT B-C+VAL "1" OR INT B 
*C+VAL "2" THEN GOTO VAL “200" 


180 PRINT AT 20,8;"crash" 

185 PRINT AT 0,0;"SCORE*";S' 

190 PRINT “FUEL*";F 
195 STOP 

200 PRINT "LANDED...<ANY KEY>" 
210 LET S»C+1NT <F/2> 

215 LET Z=2+.8 
220 PAUSE 4E4 
230 GOTO VAL "30" 

248 FOR N*R TO VAL "21" 

258 PRINT AT N,B;"<2*9w>";AT N, 
b} " 91 

268 NEXT N 
270 GOTO VAL "180" 


38 
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1 BORDER 6 ! PAPER 0' INK 7 
5 LET ov-0 = CLS • GO TO 130 

10 LET 4-0« LET b-0 * LET f-0• 
LET f-0* LET i-.l 

20 LET hl-0* LET vl-0 
100 LET b*-U*n)/r> LET v-INT 
<<<ra-r)*SIN <a)-d*SIN <b>>+.5> = 
LET h-INT C<<ra-r >*COS <a>-d*CO 
S < b ) >+. 5 ) 

110' IF f=*2 THEN PLOT 120+hl,00+ 
vl■ DRAW h-hl,v-vl 
115 IF f<2 THEN LET f-f+1 
120 LET hl-h* LET vl-v* LET 4-4 
+ i 

125 LET a$-INKEY»= IF a*-"" THE 
N GO TO 100 
130 GO TO 310 

150 PAPER 0 : INK 7* CLS - PRINT 
"" SPIROGRAPH""" 

II 

160 PRINT "" ba R.WRIGH 

T""This Pro9. Produces P4tt 
erns which can be 9enerated ba t 
wo 9e4rs 4S follows 1 -" 

170 CIRCLE 60,51,40- CIRCLE 04, 
51,16= INK 3= PLOT 60,51= DRAW 0 
,40= PLOT 04,31• DRAW 0,16= PRIN 
T AT 12,7;"R"= PRINT AT 14,10;"r 
PLOT 94,51= DRAW 16,32= PLOT 
94,51= DRAW 10,30 
100 INK 7= PRINT AT 11, 12; "Per." 
190 PRINT AT 10,16;" The small 
er";AT ll,16;"9ear rotates";AT 1 
2,16;"around the";AT 13,16;"insi 
de of the";AT 14,16;"lar9er 9ear 

11 

, 

200 PRINT AT 15,16;"Producin9 a 
Pen";AT 16,16 j" trace." 

210 PRINT AT 17,16;" InPut R,r 
,and";AT 10,16;"radius of Pen";A 
T 19,16;"in small circle" 

220 PRINT AT 21,11;"Hit a kea"« 
PAUSE 0 

225 INPUT " Load A Pattern From 
TaPe?"; x % 1 IF x*-"a" THEN INPUT 
"filename ?";f»= CLS = LOAD f*C 
ODE = PAUSE 0= GO TO 150 
230 INPUT "Radius R <R<-S5> ?"; 
ra 

240 INPUT "Radius r ?";r 
250 INPUT "Pen radius ?";d 

255 1-NPIJT "ink colour ?";in= IN 
K in > 

256 INPUT "PaPer Colour ?";PaP 
300 PAUSE 50= IF ov-0 THEN PAPE 

R PaP = CLS = GO TO 10 
305 GO TO 10 

310 INPUT "Overprint another Pa 
ttern ?";q*= IF qs="y" THEN LET 
ov~ 1= GO TO 230 
315 IF q**="a" THEN GO TO 10 
320 INPUT "Printer coPa ?";q*= 
IF q*="a" THEN COPY 
330 INPUT "TaPe coPa ?";q$- IF 
q*="a" THEN INPUT "Filename ?",q 
*= SAVE qSSCREEN* 

340 GO TO 150 



mmmm 

C HOOSE THE SIZE of a big 
circle, a small circle, and a pen. 

The pattern produced by put¬ 
ting the pen in the small circle and 
rolling it round in the large circle will 
be produced on-screen. 

Spirodraw was written for the 16K 
Spectrum by R Wright of Liss, Hamp¬ 
shire. 
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FLYING 

SCOTSMAN 


D RIVE THE Flying Scotsman 
the 400 miles from London to 
Edinburgh in your scheduled 
time. You are required to input the 
throttle regulator setting every 10 miles 
and your choice of setting will be based 
on several factors. If there is slack or a 


station ahead you must brake immedi¬ 
ately. 

Watch the pressure guage—it must 
not fall below 150. Watch your speed; it 
must not exceed 100 or fall below' 0. 
Make sure that your setting takes the 
gradient ahead into account. Finally, 


make sure that you are keeping close to 
your schedule. Arriving four hours late 
is just as much a failure as stalling en 
route. 

Flying Scotsman was written for the 
16K ZX-81 by Ian Kemp of Abingdon, 
Oxfordshire. 


1 SLOW 

2 PRINT AT 0/b; "4472 flair* s 
cnfcsm»T>" 

? PRINT AT'3/8;"TODAY YOU HHV 
E THE PRIVILEGE OF DRIViNC THIS 
FAMOUS TRAIN FROM LONDON TO EDI 
NBURGH." 

4 PRINT AT 7,6;"DISTANCE IS 4 
00 MILES AND SCHEDULED TIME 450 
MINUTES WITH ONE STOP, AT NGUCAS 
TLE. - 

5 PRINT AT 11,0;"YOU ALSO HRV 
E SPEED RESTRICTIONSFOR THREE MA 
JOR STATIONS AND TWQTRRCK REPAIR 
S." 

6 PRINT AT 1"5,0;"TYPE ANY KEY 

TO CONTINUE." 

9 IF INKEY*-"" THEN GOTO 3 

10 CLS 

11 PRINT "THE REGULATOR IS A T 
HROTTLE- IT CONTROLS THE STEAM F 

LOW. " 

12 PRINT AT 4,0;"REGULATOR SET 
TINGS 0 TU 0; BRAKE WITH -1 AT a 
U SLACKS/STATIONS. MOST POWER I 
S REQUIRED TO ACCELERATE FROM SL 
ACKS, ESPECIALLY UP-HILL. LINE S 
PEED LIMIT 100 MPH. " 

13 PRINT AT 10,0;"FULL BOILER 
PRESSURE IS 220 PS1.IF YOU DRIVE 

TOO HARD, PRESSURE FALLS AND YO 
U WILL RAPIDLY LOSE POWER." 

14 PRINT AT 15,0;"NOTE THAT 1 
IN 208 IS A STEEP GRADIENT BY 
RAILWAY STANDARDS." 

15 PRINT AT 18,0;"HAVE A GOOD 
TRIP." 

IS PRINT AT 20,0;"TYPE ANY KEY 

TO CONTINUE." 

18 IF INK.EY*-"" THEN GOTO 16 

19 CLS 


20 PRINT AT 9,5;"4472 fl*i«9 s 
cotsman" 

25 LET M=0 
2S LET T=0 
30 LET H-U 
33 LET V=0 
35 LET S=ll 
40 LET P-220 
45 DIM 2<7> 

48 RAND 8 

50 LET 2<6>=INT <37»RND>*10+10 
55 LET 2<7>-INT <37TRND>*10+1O 
60 RAND 197 

71 LET Z< 1 >-260 

72 LET 2<2>*390 

73 LET 2<3>=?0 

74 LET 2<4>-320 

75 LET 2< 5 >-180 

80 PRINT AT 4,4;"MILES FROM LO 
NDQN";AT 5,11;"ALTITUDE " 

85 PRINT AT 7,0;“SCHEDULED TIM 
E";TAB 22;"ACTUAL" 

90 PRINT AT 10,2; "boiler Prm 
are" 

95 PRINT AT 13,2;"regulator Po 
ftition" 

100 PRINT AT 18,0;"<isP 1 2 * 4 5 6 * * * * * 12 13 14 15 * * 18 19 32*9h>" 
105 PRINT AT 19,0;"<i»P r 5*sP 9a 
8*sP- 9f 5**P•i ftp 3*»P 90•5*ftP•l 

sp >" 

110 PRINT AT 20,0;"KINGS PETER- 
YORK NEW- EDIN-" 

115 PRINT AT 21.0;"CROSS BOROUG 
CASTLE BURGH" 

125 PRINT AT 4,0;M;AT 5,20;INT 
." FEET 

130 PRINT AT 8,9;"SPEED ";1NT V 
M M.P.H. " 

150 PRINT AT 10,18;P; *' P 
160 PRINT AT 2,0;" 


200 IF M=400 THEN GOTO 90O 
205 LET HN=RND*500 
210 IF M—390 THEN LET HN=0 
215 LET G-52GO0/<HN-H > 

220 LET H*HN 

225 PRINT AT 6,O;"NEXT GRADIENT 
1 IN “;INT Gi" 

230 FOR N-l TO 7 

235 IF M*2<N> THEN GOTO 700 

240 NEXT N 

245 INPUT R 

250 IF R>8 OR R<0 AND RO-1 THE 
4 GOTO 245 

255 LET A»< 220*P*SCIP R/'6-B0OO V 
< V+30>-25O00XG-V»Vr !50-3O0/<V*1> 

269 LET M-M+10 
265 LET Q«V*V+20*A 

270 IF O<0 THEN GOTO 650 
275 LET TD=60*<SQR Q-VVA 
280 LET V-SOR Q 

285 IF V>105 THEN GOTO 850 

299 LET P-P-CR-3V0.5 

292 IF P<150 THEN GOTO 640 
295 LET T-T+TD 

300 LET S-S+1O+400/G 

310 IF P>220 THEN LET P-220 
320 LET X-INT <0.0775*M-0.45> 
330 PRINT AT 18,X;"<9h• isp>" 

355 IF R<-0 THEN GOTO 601 
360 IF R-8 THEN GOTO 600 
370 PRINT AT 13,21;R;'V6 
375 PRINT AT 7,15;INT S;" MN";T 
AB 29;INT T 
380 GOTO 125 

600 LET R*-"FULL 

601 IF R<0 THEN LET P*»"BRAKING 

•• 

602 IF R=0 THEN LET R*-*'CLOSED 

N 

605 PRINT AT 13/21;R* 

610 GOTO 375 
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640 PRINT AT 2,0;"brakes leaked 
on" 

64*5 PAUSE 2Q0 

650 PRINT AT 2,0;"you have stal 
led" 

655 IF V*0 THEN GOTO 890 
660 LET T=T+l5+300/V 
665 LET P=P+10 
670 LET V-0 
689 GOTO 300 
700 LET M-M+10 
710 LET VN*20 
715 IF N<~4 THEN LET VN’40 
717 IF N<“2 THEN GOTO 755 
720 PRINT AT 2,0;"slack ahead " 
;VN;" M.P.H." 

725 INPUT R 

720 IF RO-1 THEN GOTO 850 

732 IF N”4 THEN PRINT AT 2,0;"b 
erwick □ welcome to Scotland" 

733 PAUSE 100 

735 LET TD«1200/<V+VN> 

740 LET V-VN 

745 LET S^S+U5^V+10> 

750 GOTO 290 

755 PRINT AT 2,O;"station ahead 

M 

760 LET VN~0 
770 GOTO 725 
850 FAST 
855 CLS 

860 PRINT AT 2,0;"you have eras 
hedJexcessxve speed" 

870 GOTO 2005 

890 PRINT "YOU ARE STUCK. flNOTH 
ER ENGINE IS SENT TO HELP YOU. 

fl 



V.v r- 


896 LET T^T+100 
909 LET E“INT <T-S> 

901 PAUSE 500 
903 CLS 

905 GOTO 1000+ET2 
10OO PRINT "GOOD RUN MATE" 


1801 STOP 

1820 PRINT "NOT BAD MATE" 

1021 STOP 

I860 PRINT "POOR RUN I*M AFRAID" 
1061 STOP 

2800 PRINT » YOU ARE VERY LATE.. 


.. ALL THE PASSENGERS COMPLAINE 

D. " 

2005 PRINT AT 4,4;"YOU ARE DEMQT 
ED TO CLEANING STEPHENSONS ROCKE 
T." 

2010 STOP 



LINE 18 of Frogger on page 38 of the 
July issue should read: 18 PRINT 

The asterisk shown on line 1530 of 
Lacemaker on page 12 should be an 
inverse asterisk. 

On lines 1300 and 1310 of Astral 
Foxgloves on page 13, only the second 
“b”’ and the second “c” should be 
underlined. 


In Grumphers (page 22) line 400 
contains a graphic C, line 330 a graphic 
A, line 840 a graphic B, and line 350 i 
graphic D. 

The top halves of the hoops in 
Hoop-La on page 35 are made up of 
graphic A and B, and the bottom halves 
are made up of graphic C and graphic 
D. 

Line 20 of Light Cycles, page 37, 


contains 32 graphic As and 30 graphic 
Bs. 

The diagonal line which appears on 
line 1090 of Personal Finance on 
page 47 represents a £ sign. 

Line 50 of Monsters, page 49, con¬ 
tains a graphic F and a graphic I, line 
2110 contains 32 graphic As, line 2140 
a graphic B, and line 3000 a graphic C. 


B 
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Y OUR CRAFT appears on the 
left-hand side of the screen and 
must travel through the gaps in 
the forcefield to reach the right-hand 


side. Skilful flying on your first flights Move down with A and up with L. 
may succeed in destroying the edges of Forcefield was written for the 16K 
the forcefields nearest to the gaps and or 48K Spectrum by G Woolnough of 
thus make subsequent flights easier. Coventry, West Midlands. 


1U0 GO SUB 3000 
3 50 PAPER 0 : BORDER 0= LLS 
175 LET b-0 

£00 INK ?• PRINT AT 0,0;"FIi3ht 

• (Best • " 

205 PRINT fiT 1.0; INK 6i*WJ IN 

K 5; a**a********3**<*j*«**33**.i 

INK 6 i"W 

210 FOR n-2 TO 20 STEP 2 
220 PRINT AT n,0;"l";AT n+1,0;" 
b '• 

220 PRINT AT 21,0; iNK 6 ;T'j I 
NK 5; M 

INK 6j , W i 
240 NEXT n 

255 INK 2' FOR n»2 TO 2Q PRINT 
AT n, 31; 1 NEXT n 

260 INK 7- FOR J-7 TO 27 STEP 5 
■ FOR n-2 TO 20 1 PRINT AT n,j;"_£_ 
" • NEXT n 

270 FOR m-1 TO 3< LET k-INT CRN 
D#18)+2■ PRINT AT k.jj INK Qi‘W 

• NEXT m r NEXT j 

275 LET »c-1000< LET fl-0 
280 REN SHIP 
285 LET q-INT <RND*9>+1 
290 LET 4-q*2' LET q-q+1 

310 LET u-1 

311 PRINT AT 0.7;fl' PRINT AT 0 

. 16;sc; " '' 

312 IF fl-10 THEN GO TO 420 
315 LET fl-fl+1- PRINT AT 0,7;f 

l 

319 PAUSE 25 

320 INK 6' PRINT AT 4/u;"^ 

325 FOR k-1 TO 8- NEXT k‘ BEEP 


. 01.20 

330 PRINT AT 4.u; M * 

350 IF ATTR <4.u+l>-2 THEN GO 
TO 1000 

360 IF ATTR <q,u+l>-5 THEN GO 
TO 2000 

370 IF ATTR <4,u+l>-7 THEN GO 
TO 3000 

375 LET 4-4-KINKEY*-"* n >-<INKEY 

*-'* l •* > 

395 LET u-u+l 
400 GO TO 320 

420 FOR N-2 TO 2Q- PRINT AT N.4 

i " “- PA 

USE 7- NEXT N 

421 IF sc>b THEN LET b»sc 

422 PRINT AT 0.28;b 

425 PRINT AT 5.3;"WOULD YOU L1K 
E ANOTHER GO?"- BEEP .01.4- BEEP 
.02,5 : PRINT AT 7.15;"<Y^N>"- F 
OR N-0 TO 4' BEEP .01,N« NEXT N 
430 IF INKEYS-"" THEN GO TO 43 

0 

440 IF INKEYS-"*" THEN PRINT A 
T 5.3;*' 

"iAT 7.15;" “;AT 0.7;“ 

"■ GO TO 260 

450 IF INKEYSO"*" THEN PRINT 
AT 10.10;"SO BE IT.FAREWELL."- S 
TOP 

1010 FOR o-l TO 10 

1020 BEEP .01.INT <RND*30> 

1030 NEXT n 

1040 LET sc-sc+200 

1999 GO TO 280 

2000 PRINT AT 4,w;" " 


2010 FOR n-16 TO 8 STEP -1 
2020 BEEP .01.* 

2040 LET sc—sc—100 

2050 PRINT AT q.u; INK 5;"^' 

2999 GO TO 280 
3010 FOR n-15 TO 10 STEP -1 
3020 BEEP .01, tv BEEP .01,n-3 
3030 NEXT * 

3048 LET sc—sc—100 
3999 GO TO 280 

8999 STOP 

9000 FOR k-1 TO 5 1 FOR n-0 TO 7' 
READ POKE USR CCHRS <143+k>> 

+*,*> NEXT n- NEXT k 

9010 DATA BIN 11111111.BIN 00000 

000,BIN 11111111/BIN 10101010.BI 

N 01010101.BIN 11111111/BIN 0000 

0000.BIN 11111111 

9020 DATA BIN 10100000.BIN 10101 

000,BIN 10100100,BIN 10100010,BI 

N 10100001.BIN 10100010,BIN 1010 

0100.BIN 10101000 

9030 DATA BIN 11111100,BIN 00111 

000,BIN 00111100,BIN 11111111,BI 

N 00111100,BIN 00111000,BIN 1111 

1100,BIN 00000000 

9040 DATA BIN 11100001,BIN 11010 

001,BIN 11001001/BIN 11000111,BI 

N 11000111/BIN 11001001/BIN 1101 

0001.BIN 11100001 

9058 DATA BIN 00000001/BIN G0100 

110,BIN 10111100,BIN 01011100.BI 

N 01011100,BIN 10111100,BIN 0010 

0010.BIN 000O0001 

9360 RETURN 

9999 SAVE "FORCE" LINE 1 
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A NARROW WINDOW appears 
in the middle of the screen, 
through which can be seen a 
moving line of grey squares. Whenever 
a grey square appears between the 
markers in the middle of the window 
press any key to replace it with a star. 
When each of the 32 grey squares in the 
loop has been replaced by a star, and 
any squares which have appeared in the 
course of the game have been replaced, 
your skill percentage will be shown. 

That will be lower if you have not 
pressed a key when a grey square has 
been between the markers, or if you 
have pressed a key when a star was 
between the markers. 

Star Shooter was written for the IK 
ZX-81 by Adam Freed of Bognor Regis, 
Sussex. 


2 CLS 

3 LET T=SGN PI 

4 LET 3“T 

5 PRINT RT CODE "< 9d >" >CODE " 
<9s>”;"< 5*isp *i+•5 *i sP>";TAB COD 
E " < 9s > ".; " < l Sp > "; HT CODE " < 9s > " , 
CODE "="; '*< l sp > **; TAB CODE "< 9s > " 
; "<5*isP : i+5*j.sp >*' 

10 LET A$="< 32*9hV 

20 IF RND<.1£5 THEN LET A*<INT 
c RND*CODE " 4 M >♦ SGN PI >« M < 9a > " 

30 PRINT RT CODE "<9s>%VAL " 1 
1"; ASK CODE "£“ TO CODE " = " > 

40 LET fl$~fi$< CODE "<92)" TO >+ 
A* < CODE "<9l >" ) 

45 LET T -T +<. R3K CODE "?" >«=*'< 9a ) 

50 LET S“S+< A$< CODE "?")®"<9.a> 
M AND 1NKEY$< >"">—<R$< CODE "?">* 
AND INKEY$< >"" > 

55 IF INKEY$< >" " THEN LET A*<C 
ODE "?“ )=*"#" 

60 IF ****#***#*#***#*##»# 
***#:m*****" THEN GOTO VflL "00" 

70 GOTO CODE "=" 

80 PRINT RT CODE "<9s VS VflL "1 
1": " CAME*OVER " 

90 IF S<NOT PI THEN LET S»NOT 
PI 

95 PRINT RT CODE "*",NQT PI;"Y 
OUR SKILL PERCENTAGE®";INT < < S/T 
>* 100 > 

99 IF INKEY*® 11 " THEN GOTO VAL 
"99" 

100 RUN 
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1 1W_ 

SOFTWARE rnJ 


DOOMSDAY 

CASTLE 

is an arcade style game 
with the feel 
of a real adventure 



is available at £6.50 from 

FANTASY SOFTWARE, FALCONBERG LODGE. 27A ST GEORGES ROAD, CHELTENHAM. GLOS GL50 3DT 
despatched by return first class post together with free membership and current newsletter of the Fantasy Micro Club 

Trade Enquiries welcome - telephone 0242-583661. 


You take on the role of our super hero ZIGGY 
shown here above in his exploratory 
capsule in combat with an Urk disguised as a 
pangalactic gargleblaster | II) This is a true 
representation of the on-screen graphics. 


Doomsday Castle consists of a labyrinth of 76 complexly inter-connected Halls and Passages 
where you will meet a whole host of adversaries serving the infinitely evil Scarthax, the Garthrogs, 
the Orphacs, the phenomenally nasty Googly Bird and the Urks which manifest themselves in over 
fifty unbelievably weird and wonderful guises. 

Scarthax has scoured the Universe to bring together the six ancient stones of lifeforce. United in 
Doomsday Castle they are being used to wield an irresistable power over the cosmos, emanating 
waves of corruption through every galaxy. 

To save the Universe, you must battle your way through the Castle to find and collect the six 
stones and use their force against 
Scarthax to destroy Doomsday 
Castle, hopefully escaping 
yourself before the final 
cataclysmic explosion. 

The task is not easy 
(saving the Universe 
never is!) and It will 
take youmany games to 
unfold the structure 
of D^pmsday Castle and 
discover the locations of the 
ancient stones. The addictive 
arcade style action will keep you 
coming back to play but the 
overall challenge should still 
keep you occupied for months. 


FANTASY SOFTWARE 

is available from 
W.H.SMITHS, JOHN MENZIES, 
LASKYS, GREENS, RUMBELOWS, 
SPECTRUM GROUP, 
COMPUTERS FOR ALL and all other 
good software retailers. 


For 48K 
Spectrum 





10 LET X=CODE "< 95 V 
20 LET Y=CODE ,, 2 M 
30 DIM C<I+J,J> 

40 LET S=0 

50 LET X=X+< INKEY**"6" OR X*0> 
-< INKEY*="?" OR X=COOE "<9s>"> 

60 LET Y=Y+CINKEY$="8" OR Y=0> 
-<INKEY**"5" OR Y*CODE "3"> 

70 LET R=INT <RND*J>+I 
80 LET C< R, I )*C< R, I >+< X>C< R, I > 
X< OCR, I > > 

90 LET OCR, J>=C<R, J>+<Y>C<R, J> 
>-<Y<C<R, J>> 

100 LET S=S+I 

110 PRINT RT X j YRT C<R,I>, 
C<R/ J>j "< i % > " i RT 0,0; S 
120 IF X< >C< R,I> OR Y< >C< R,J > T 
HEN GOTO CODE "M" 

130 PRINT RT X,Y;"GOTCHA" 


G OTCHA is an exciting game 
for the IK ZX-81 which can 
be played again and again 
without becoming boring. It requires 
some skill and forethought. 

It was written by Paul Sutton, a law 
student of Cardiff, South Glamorgan. 
He owns a ZX-81 with 16K RAM pack, 
which he uses normally to help him in 
fantasy games, such as dungeons and 
dragons. 

You—an asterisk—must avoid the 
two intelligent ghosts—inverse aster¬ 
isks—for as long as possible. As each of 
you leaves a trail, it can become imposs¬ 
ible to spot the ghosts for long periods. 

Remember that you can cross your 
own trail or that of the ghosts, that you 
can move only in the upper half of the 
screen, and that you can move faster 
than the ghosts. Your movement is 
controlled by the usual cursor keys. 
Start by entering GOTO 1. 
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5 LET H-0 
10 PRINT 

SUPPOUND-81 

MOVE VOUR MAN( X) AROUND 
THE SCREEN USING THE 
CURSOR KEYS(5,6,7,8)AND 
EAT THE POINT-PODS< S >. 

DO NOT CRASH INTO THE 
DEADLY WALLS<9raPhic H ).EAT 

THE" 

20 PRINT 

" ESCAPE PILLS(SraPhic T) 
TO GET ONTO A HARDER LEV 

EL. 

INPUT DIFFICULTY 
LEVEL <1-4 >" 

25 LET A*-INKEY* 

30 IF A*-"" THEN GOTO 25 
35 IF A*<>"1" AND A«<>"2" AND 
A*< >"3" AND A*< >"4" THEN GOTO 25 
40 LET L-VAL AS/8 
45 LET S-0 
50 CLS 

60 LET A-l+PEEK 16396+PEEK 163 
97*256 

65 PRINT "<2*IS)SURR0UND-81<7* 
IS )SCQRE-(6,IS)" 

70 PRINT "<32*IS>" 

80 FOP F-l TO 19 
90 PRINT "(IS )";TAB 31; "(IS)" 
100 NEXT F 
110 PRINT "<32*IS)" 

120 LET X-345 
123 LET Y-336 

130 IF INKEY*-"5" AND PEEK (A+X 
-1)0128 THEN LET X-X-l 

148 IF INKE V *”"6" AND PEEK (A+X 
+33)0128 THEN LET X-X+33 


158 IF INKEY*-"7" AND PEEK (A+X 
-33)0128 THEN LET X=X-33 
160 IF INKEYS="8" AND PEEK <A+X 
+ 1)0128 THEN LET X-X+l 
a65 IF X-Y THEN GOTO 125 

PEEK (X+A)~136 THEN GOTO 


IF 


170 
360 

175 IF PEEK <X+A>-13 THEN LET S 
=S+100 

180 IF PEEK (X+A >=6 THEN GOTO 3 
00 

185 POKE <X+A),61 
190 POKE < Y+A),0 
200 LET Y~X 

210 IF <RND<L) AND (PEEK (A+X+2 
>0128) AND (PEEK (A+X+D0128) 
THEN POKE (A+X+INT <RND*2)+1),13 
6 

220 IF (RND<L> AND (PEEK (A+X-6 
6)0128) AND (PEEK (R+X-33XM23 
) THEN POKE (A+X—((INT (PND*2)+1 
)*33>), 136 

230 IF <RND<L) AND (PEEK (A+X+6 
6)0128) AND (PEEK (A+X+33XM28 
) THEN POKE (A+X+((INT (PND*2)+1 
)*33 ) ), 136 

240 IF (RND<L> AND (PEEK (A+X-2 
X>128) AND (PEEK (A+X-D0128) 
THEN POKE (A+X+INT (RND*2)-2),13 
6 

250 IF RND<.1 THEN PRINT AT INT 
(PND*19 >+2,INT (PND*30)+1;”*" 
260 IF RND<.03 THEN PRINT AT IN 
T (RND*19)+2,INT (RND*30)+l;"( 
aPhic T>" 

270 LET S-S+10 
280 PRINT AT 0,26;S 
290 GOTO 125 
300 LET S^S+300 


Y OUR TASK is 10 collect as many 
points as possible by moving 
round the playing area colliding 
with the dollar signs appearing at ran¬ 
dom. In the course of play you will find 
yourself increasingly constrained by the 
sudden materialisation of deadly walls— 
constructed of graphic H. They must be 
avoided at peril of your life. 

In addition, gateways on to new lev¬ 
els of play will appear. They are signi¬ 
fied by graphic Ts and will transport 
you into new playing areas. You move 
by means of the cursor keys and are 
given a running score of your achieve¬ 
ments. Full instructions are given with 
the listing. 

16 K Evasion was submitted by Peter 
Hawkin of Leeds. In our listing, lower¬ 
case lettering indicates graphics instruc¬ 
tions; IS signifies Inverse Space. (16K 
ZX-81). 


305 POKE (A+Y),0 
310 FOR F-l TO 25 
313 POKE X+A,61 
315 POKE X+A,6 
317 POKE A+X,134 
320 NEXT F 
325 CLS 
330 PRINT 

WELL DONE. YOU HAVE COMPLETED 
ROUND ONE AND HAVE BEEN AWARDED 
300 BONUS POINTS FOR DOING SO. 
PRESS ANY KEY TO GET ONTO A 
HARDER LEVEL." 

335 LET L-L+.125 

340 IF INKEY*-"" THEN GOTO 340 

350 GOTO 50 

360 POKE A+Y,0 

365 FOP F-l TO 25 

370 POKE X+A,61 

375 POKE A+X,136 

380 POKE A+X,0 

390 NEXT F 

400 CLS 

410 PRINT "YOU CPASHED INTO A W 
ALL. YOUR FINAL SCORE WAS ";Sj 

N II 

420 IF S>H THEN LET H-S 
425 PRINT 

430 PRINT "THE HIGH SCORE IS 
H; “. " 

435 PRINT 

440 PRINT "PRESS ANY KEY FOR AN 
OTHER GAME." 

450 IF INKEY*-"" THEN GOTO 450 
460 CLS 
470 GOTO 10 
9000 SAVE "SURR" 

9010 RUN 


evasion 


24 
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Y OU HAVE one minute to catch as 
many types of insects as possible 
with the sticky tongue of your 
frog. The controls are 5 — skip left; 8 — 
skip right; 6 — jump left; 7 — jump 
right; 0 releases the tongue. Press R to 
return to the lily pad for a new game. 

Bugfever was written by Simon Cox 
of Dunstable, Beds. 


0100,BIN 11010100,BIN 11101001,8 
IN 1110001,255 

20 DATA 14,17,17,35,37,42,116, 
63,96,152,8,8,16,32,132,248 

900 BORDER 5 s PAPER 8- BRIGHT 1 
• CLS ■ FOR n-Q TO 10' PRINT AT 
n, 0; PAPER 5,, « NEXT n FOR n-U 

TO 21* PRINT AT «,0; PAPER 1,,« 

NEXT n 

901 INK 7 1 FOR r-0 TO 80 STEP 1 
6* FUR q-0+RND*4 TO 255 STEP 16 

PLOT 4,r2,2’ DRAW 2,-1' 
NEXT q* NEXT r 

911 LET tiroe-60 LET score-0 

912 INK 1= PAPER 4- PRINT AT 17 
,3; "< i »P ' 193 19*sP ■ i93> *‘ 

913 PRINT AT 18,3,'' 


6, PAPER 1;" <9*'9b> " 

920 RESTORE 20- FOR n-O Tu 15’ 
READ a- POKE USR 9a > "+r», a' NEX 
T * 

930 FOR -1 = 1 TO 0 STEP -.1* PLOT 
INK. 6;224,175- DRAW INK 6;31, 
-q*4,q= NEXT 1 

940 OVER 0- FOR r=40 TO 200- FO 
R q-1 TO 4- PLOT INK 3;r+q,16> 
DRAW INK 3;0,12- NEXT q' LET r- 
r+lNT <10+RND*20> NEXT r 
1010 PAPER S' INK O• REM fro9 

1015 PRINT AT 21,0; PAPER 4,, 

1016 PRINT AT 21,11, INK 7;"BUGF 
EVER" 

1020 LET x=l6 : LET y-l3 

1021 PRINT AT x,v; INK 7;" <9q > " 

1025 LET z-10 

1026 GO TO 5368 

5020 FOR n»x-3 TO x-z+<3 AND y>« 
25 AND z>3) STEP -1 INK 0+C7 AN 
D n>10>< BRIGHT 1- PRINT AT n,w; 
"9i AT n+1 ,*< >"9k ";AT n+2,s;"l 
";AT n+2, y/" H ■ GO SUB 6050 
5030 NEXT n / 

5035 PRINT AT n+l,*;" "; AT r>42,y 
;" AT r+3" 

5040 FOR P=* TO *+4-<3 AND *>-25 


1 DATA 14,17,17,35,37,42,116, 
63,96,152,8,8,16,32,132,248,96,1 
58,65,48,*2,7,5,9,3,4,100,181,23 
4,100,4,2,24,32,64,170,85,64,32, 
24,0,0,132,62,61,255,62,32,0,127 
,1,0,1,127,0,0,3,14,255,255,255, 
14,3,0 

2 DATA 240,0,128,126,128,0,24 
0,0,0,0,0,0,130,130,130,186,186, 
254,124,124,56,56,56,56,108,68,6 
8,68,68,68,68,0,0,34,34,34,24,34 
,34,54,28,26,28,28,62,62,127,93, 
93,65,65,65,65,0,0,0,112,216,124 
,126,255,127,63,255 

3 DATA 14,27,62,126,255,254,2 
52,255,248,0,128,255,128,0,243,0 
,0,0,254,128,0,128,254,0,0,132,1 
12,255,255,255,112,192,0,15,O,1, 
4,1,0,15 

4 RESTORE * FOR 1-0 TO 167 ST 
EP 8- FOR r-0 TO 7- READ a POKE 

USR "(.9 ar+q+r,a- NEXT r NEXT 


914 PRINT AT 19,3;" <i*P 93 2l*s 
p 93 y 

915 INk 0- PAPER 4- PLOT 35,26' 
DRAW 170,0 

916 FOR n-45 TO 190 STEP 8 PLO 
T n,26' DRAW 8,8' DRAW -8,-8' DR 
AW 8,-6' NEXT n 

917 FOR n-0 TO 255- PLOT INK 4 
;n,8- DRAW INK 4;0,1NT <RND*8>' 

NEXT n 

918 RESTORE 10 > FOR rt-0 TO 15- 
READ a POKE USR " < 9a ) "+n,a - NEX 
T rt 

919 PRINT AT 19,1; INK 3; PAPER 
1; '* < 9a 9b > *'; AT 16,3; INK 6; PAP 

ER 1; '' <9a 9b) ";AT 16,26; INK 7; 
PAPER l;"i9^i9b2";AT 19,28; INK 


10 DATA BIN 1010018,BIN 01O101 
01,BIN 01010101,BIN 00101011,BIN 
80101011,BIN 10010111,BIN 10001 
111,BIN 01111111,BIN 01100101,81 
N 01101010-BIN 10101010,BIN 1101 
0100,BIN l1010100,BIN 11101001,B 
IN 1110001,255 

15 DATA BIN 1010010,BIN 0101U1 
01,BIN 01010101,BIN 00101011,BIN 
00101011,BIN 10010111,BIN 10U01 
111,BIN 01111111,BIN 01100101,BI 
N 01101010,BIN 10101810,BIN 1101 


5050 PRINT AT n,P;" <99-9h-9i> 

5051 IF INKEY*-"0" THEN BEEP 
1,0 PRINT AT n,P+3; INK ©;"<9 


5052 IF <SCREENS <n,P+4><>" " > A 
ND INKEY*-"0" THEN PRINT AT Y>,P 
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+3; INK 2;" (9r) "' FOR r*5 TO I S 
TEP -1= BEEP 73l,-r NEXT r = PR1 


NT PT a.j b-1 


LET score=sc 


ore+scl 1 CO SUB 5310 
5053 GO SUB 6050 

5060 NEXT P 

5061 LET txme«time-<4 PND z<>3>- 
(.4/10 PND z«3> 

5065 PRINT PT n,p-l; u 

5070 FOR n-x—z+<3 PND *>-25 PND 

z>3> TO x INK 0-K7 PND r.> 10 > P 

RINT PT n-3,*+4; " <9m> ";RT r»- 2 ,* + 

4; '* < 9n ) *'; PT r>-l,*+*7"<9or;PT r,- 

4,*+4;" "« GO SUB 6050 

5080 NEXT n 

5085 PRINT PT n-4,*+4;'' ";PT n-3 
/V+4-" ";PT rt-2,*+4,” " 

509G LET *-*+4' PRINT PT x.v; IN 
K 7;” C94 > " 

3895 BEEP .01,-20' BEEP .01,-10 
5096 IF *>=29 THEN LET txme=tim 
e-3* PRINT PT x,*; INK 1 ;" ” * IN 
K 7 • FOR r.= l TO 20 BEEP .063, tv 
PLOT 236,32 ! GO SUB 605O DRAW 
INT < -10-*-RND*20 ), I NT <RND*l5>' N 
EXT n ; GO SUB 6050 FOR 4-16 TO 
18' PRINT PT 4,28; PPPER 1;" 

GO SUB 3120 GO SUB 6050 = NEX 
T 4 - LET X=l 6 : LET *=13 
5100 RETURN 

5128 FOR n=x-3 TO x-z STEP - 1 ■ 1 
NK 0+< 7 PND n>10> PRINT PT r>,*; 
" <9j > '*;RT n+1,*; "<9k_>";PT n+2,*, 
” <91 > **;PT n+3, *; ” " ■ GO SUB 6950 
5130 NEXT r. 

5135 PRINT PT n+1^;- ”;PT rt+2,* 
>'* "; PT ri*3, *; " " 

5140 FOR P=* TO *—4 STEP -1 
5158 PRINT PT n, P; ”< 9u. 1 9t 9s > ”• 
GO SUB 6050' POKE U^R ”<9ur+4, 
4 

5156 IF 1NKEYS="0" THEN BEEP .0 
1,0' POKE USR "<_9u>”+4,255 

5157 IF <SCREEN* <n,P-l><>” ”> p 
ND INKEY*-"0” THEN POKE USR ”<9 
u )”+4,255 * FOR r=5 TO 1 STEP -1 
“BEEP . 01 ,-r- NEXT r PRINT RT 3 


,b-l;“ "■ LET score-score+sc 

1- GO SUB 5310 

5160 NEXT P 

5161 LET time-time-<4 PND z<>3>- 
<4/10 PND z-3> 

5165 PRINT PT n,P*l,” 

5170 FOR n-x-z TO x- INK 0 +< 7 RN 
D n>10>' PRINT PT iv-3,*-4;" <9m) ” 
; PT n—2, *—4; ** < 9n ) ”; PT n-l,*-4;”< 
90 >**;PT n—4, v—4; ” -> GO SUB 6050 
5180 NEXT n 

5185 PRINT PT n-4,*-4; ” ";PT r>-3 
,*-4;" " ;PT r>-2,*-4;” - 
5190 LET *=*-4' PRINT RT x,*;"<9 
P >" 

5195 BEEP .01,-20 1 BEEP .01,-10 

5196 IF *<-3 THEN LET time-time 
-3' PRINT PT x,*; INK 1 ,” •« INK 

7- FOR r=l TO 20' BEEP .003*YV 
PLOT 11,32' GO SUB 6050' DRfiUi IN 
T <-10+RND*20>,INT <RND*10>’ NEX 
T iv GO SUB 6050 FOR 4-16 TO 18 
' PRINT PT 4,0; PPPER 1;" "• G 

0 SUB 9110 GO SUB 6050 NEXT 4 
LET x-16 1 LET * = 13 
5280 RETURN 

5310 LET a.-INT <i+RND*7> LET bl 

=INT <1+RND*3> 

5320 IF bl = l THEN LET aS=*'(.9j.'9 
b > ” ' LET d—1 = LET dl =8 LET b- 
29- LET sc1=150 

5338 IF bl=2 THEN LET as="<9d'9 
e > ” : LET d—1 = LET dl=0' LET b= 
29- LET sc1=280 

5340 IF bl-3 THEN LET a*=" <9c 
9fV LET d=l« LET dl=29 LET b= 
0 ' LET sc1=50 
5350 RETURN 
5360 GO SUB 5310 

6000 GO SUB 6050 

6001 PRINT PT 21,0, INK 7;"TIME' 
";INT txme PND time>- 0 ;” ";RT 2 l 
, 22 ; INK 7; •'SCORE ”;score 

6002 IF txme <*0 THEN LET time -0 
■ PRINT PT 10,9; INK. 7; PPPER 4, 
" GRME-OVER "• GO TO 9000 


6005 IF INKEYS=" 8 " THEN LET z=3 
BEEP .01,8' GO SUB 5016' 

6010 IF INKEYS-"7" THEN LET z=x 
-a.-l BEEP .01,7' GO SUB 5016' 
6020 IF INKEYS-yS” PND *>1 THEN 
LET z-3■ BEEP .01,5’ GO SUB 512 
0 . 

€030 IF INKEYS=" 6 " PNC> *>1 THEN 
LET z=x-a-l 1 BEEP .81,6 GO SUB 
5120' 

6035 LET time-tme-l/lQ 

6046 GO TO 60O0 

6050 PRINT RT *,b; INK Q; a.® 

6060 LET b-b+d 1 IF b-dl THEN PR 
INT PT a, b-l;" "= GO SUB 5318 

6065 BEEP .001,b 
6070 RETURN 

9000 IF INKEYSO'V" THEN GO TO 
6080 

9015 PRINT PT 1,12;"SCORING";PT 

2 , 12 ;”-" 

9020 PRINT PT 4,3 ; 11 > 9d : 9e) DRRG 

ONFLIES- 200” 

9040 PRINT RT 6,3;"<9a 9b) BUTT 

ERFLIES-150” 

9870 PRINT PT 8,3;"<9C 9F> FLIE 

5 -50 " 

9080 FOR ri=l TO 50' NEXT n 
9090 IF INKEY$< >"r" THEN GO TO 
9O90 

9100 FOR ri=l TO 10 ' PRINT PT r .,0 
; PPPER 5; INK 7;” 

"• NEXT r> = PR1 

NT PT 21,28; PPPER 4; INK 4;” 

” PRINT PT x, *;" "• LET score- 
0 LET z=lQ' LET x=l 6 • LET *= 13 : 

LET time= 6 l' PRINT PT x,*; INK 
7; *' < 93 > " ' GO TO 5360 
9110 INK 7- FOR n=0 TO 16 STEP 1 

6 -- PLOT tv 32' DRRW 2,1- DRPW 2,- 
1 - NEXT rv PRINT PT 16,13; "< 94 >” 

‘ RETURN 

9120 INK 7- FOR r»*G» TO 16 STEP l 
6 - PLOT n+230,32' DRPW 2 ; 1 DRRW 
2,-1' NEXT n PRINT PT 16,13;”< 
94 >" ' RETURN 
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GRID RUN <5 a high resolution. fnitl machine codo gamo using tho 
spoctrums sound and colour 10 iho lull Sot in o mofo you must 
avoid oncoming android cors bont on your destruction. Bonus cqr 
ovory 10,000 points “Famous Five" holl ol fame, Incrooslng spood 
an<l difficulty Thoro is oven a bold button to got your brooth bock 
PONTOON Included on sido B absolutely Iroo. Pontoon has lull 
graphical representations ol all tho cords including King, Queen, 
Jock. “Intelligent" play ol aces, and lull analysis ol results at end ol 
each gome REF. GRID. 



LAST SUNSET FOR LATTICA (Original) is o true graphical adventure 
gamo in real timo. Your oim is to dolose a bomb hidden somewhere 
in a highly complicated moro avoiding many well armed android* 
along tho way. Extra lives mo thoro lor tho taking, so oro the keys to 
toko you to tho next level and oil tho while tune is running out lor Iho 
little Plonot ol Lattice. REF SUN. 


All these games are available for the ZX Spectrum 48K for the incredible 

price of only £ 5.50 including P&P VAT etc. Just complete the mail 

order form for prompt dispatch by return of post. 

Arcade are dommitted to original game concepts so look out for new 
titles in the Arcade range. Trade enquiries welcome. Phone Orpington 
35639 anytime or write to Arcade Software Ltd, Technology House, 32 
Chislehurst Road, Orpington, Kent BR6 ODG. 



THE DETECTIVE (Original) You thought ll was |ust anothOf “Take 
Iho secrets Irom o Solo and Run" job bill Iho mob (bought 
diflerontly they will (ry everything to slop you (his llmo. II 
madmen, lasers, bombs, dynamite, daggors, barrels, blislor bombs, 
croton, helicopters, lots and fourteen othor lovels do not got you. 
you might jtijd mnko it, Opening tho solo has Hu pitlalls too. Fast 
moving, m/d game with excellent graphics and sound. A very 
addictive game. REF. DET. 


TO: ALL MAIL ORDERS 


Qty. 

Item 

tern Price 
C 

Total 

c 



















RAIDER OF THE CURSED MINE (Original! Grood drove you down 
into tho old diamond rnmo. ehoor determination and luck is tho only 
woy out ogoin. Lilts help you. so do lamps, and diamonds can be 
worth a fortune but bowaro ol tho evils that lurk doop in tho mine. 
Trolls who throw boulders at you, spiders who eat you. ghosts who 
show no morcy and bats who steal things, add to this n time bonus 
and you havo an exciting Arcade quality gome Roach level 32 and 
oscope to tho big outside world REF. RAID, 


DON 'T FORGET YOU CAN AL WA YS ORDER ON 
THE TELEPHONE WITH YOUR CREDIT CARD . 
TRADE ENQUIRIES WELCOME. 

•I unclose a ch*QU«/postol wrier payable to ARCAOl SOfTWARf l ID. lor 


•Ptonso cluigo to m* AccowBrnclaycanl account no 


•Please delelec.nit>|il«tB 
as applicable 


cu n i m num i 


Ssjoatuia _ _ 


Ramn Mr MisiMiss 
A ddress 


SP1 







































18 RESTORE - CLEAR 31999' LET 
y»i3 

2b FUR n-32000 TO 22609 READ 
3 LET x-x+J.' POKE n,a- NEXT tv 
IF x<>61860 THEN PR1N1 AT 19,18; 

FLASH 1;"ERROR IN DflTR" ; STOP 

30 ORTA 33,8,92,54,56,33,100,1 
2?,54,7,35» 54,307,35,54,255,35,5 
4,56,35,54,0,35,54,1,33,84,0,35, 
54,20.35,54,0,62,2,205.1,22,1.7. 
7,205.229,34,17,1,1,1,0,153,20b, 
186,36,1,241,0,20b,186-36,17,255 
,255,1,0,153,205.186,36,1,241,0. 
205,186,36 

40 OATA 42.118,82,34,83,41,41, 
25,41,41,41,25,34,118,92.124.254 
,8,56,23* .254;152,48,232.71,14,1 


,209,193,16,224,193,16,215,213.1 
93 

70 LATA 58,104,127,120,71,59.1 
05,127,129,78,237,67,106,127,197 
,205,22,126,193,197,205,229,34.1 
93,255,58,8.92,33,104,127,254,53 
,32,7,54,9,35.54,255,24,214,254, 
56.32,7,54,0,35,54,1,24,203 

00 ORTA 254,54,32.7,54,255,35, 
54,0,24,192.254,55,32,5,54.1,35, 
54,0,24,181 

90 DATA 205,170,34.71,126,4,7, 
16,253,203.71.40,22,193,193,33,0 
,0,126.211,254.70,16,254,35,124, 
254,23,32,244,33,88,39,217,201 
190 DATA 58.6.92,33,103,127,70, 
194.40.5,119,43,54.255.35,43,62, 
89,6,19,211.254,47,60,211.254,19 
7,79.16,254 193.16,243/53,62,16, 
215-62,5.215.1,5,24,205,217,13,3 
3,100-127,30.32,205,40,26,237,91 
,100.127.99,186,48,124.254,255,3 
2.9,193,193,1,8,0,217,24,162,92, 
85,237,83/100,127,62,16,215,62,7 


6,127,126,35,70,22,255,20,214,8, 

48.251.62.33.146.79.62.175.144.2 
2,255,20,214,8,48,251,62,24,146, 
71,225,197,126,184,48,3,60,24,1, 
61,119 

120 DATA 71,35,126,185,48,3.60, 
24.1,61,119,79,197,205,217,13,19 
3,225,17,143,92.124,184,32,14,12 

5.185.32.10.225.62.6.18.62.147.2 
15.195.35,126,33,33,91,17,32,0,1 
51,237.82,16,251,65,43,16,253,62 
,2,190,40,12,225,33,143,92,54,7, 
62,145,215,54,2,201 

130 DATA 225.6,9,197, S3. 187,128 
,50,123, *2,229,70,35,70,205,21*, 
13,62,144,215,33,0,0, 126,211,254 
,35.124,254,9,32,247,225,193,16, 
223,54,255,33,143,92,54,2,33, 109 
,127,126,254,255,192,35,35, 125,2 
54,149,32,245,225,225,1,1,5,217, 
195,52,126 

148 PRINT RT 10,8;"NO ERRORS IN 
ORTA" 

150 PRINT RT 12,3j"N0W SAVING D 
ATA TO CASSETTE" 

160 SAVE "STP0N2"C0DE 32050,620 
178 STOP 

9999 SAVE "STRON DATA" LINE 0- B 
EEP 1.1 


50 ORTA 137,6,9,197,62,189,144 
,50,123,92,6,20,33,109.127,197,7 
3,35,78,35,229,205,217,13,62,145 
,215,225,193,16,240,6,100.197,42 
, 106,127,43,43,43,34.106.127,17, 
1,0,205,181,3,193,16,237,193,16, 


110 DATA 33,108,127,52, 126,254, 
19,56,2,54,255,35.135,133,111,12 
6,254,255,202,70,127.229,229,70, 
35.78,205,217,13,62,32,215,33,10 
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Part 2 


10 RESTORE ' RANDOMIZE BUROE 
R 0’ POKE 23693,1' POKE 23675,16 
©• CLEAR 31999* LOAD "STR0N2“COt> 
E - CLS 

20 FOR T.-USR "J" TO USR "cT+7- 
READ «' POKE .*>*• NEXT n 

30 DATA 0,0,0,0,0,0,0,0,60,255 
,153,255,195,195,195,231,0,0,0,0 
,0,0,0,0,60,255,153,255,60,60,60 
, 126 

40 PRINT AT 1,13; INK 6;"PROGR 
AM"- FOR rn-1 TO 5‘ FOR n-7 TO 1 
STEP -1< INK r.- PRINT AT 3,2; H _d 
bd dbdbd bdbd bdb d_ _d_ d 
_d_ b_ d d d d bd b.” 

50 PRINT AT 5,2;"b_ _d_ _b 

b b b dh d bdb 


bdb d d b b b_ M 

60 PRINT AT 7,2;" d d b 

d b bddd b b b d 

d d d b db" 

70 PRINT AT 9,2 ;" bdb _d_ _b 
_d_ dhd d bd“ • NEXT NEXT 
n- FOR *-0 TO 3 FOR r>-0 TO 7 P 
RUSE 5* PRINT AT 13,7> INK n; "B* 
Ro«»r Allen 1983"• NEXT n* NEX 
T n 

80 PLOT 0,15 DRAW INK 2;255,0 
« INK 5' FOR n»255 TO 24 STEP -1 
* PLOT n,16 1 PAUSE 2- DRAW 0,4- 
NEXT n 

90 FOR n-4 TU 30' FUR TU 1 
■ PLOT n+20,16 - PAUSE 1 DRAW 0, 
n- NEXT m« NEXT y, 

100 PLOT 51.16 DRAW OVER 1;0,4 



Y OUR NAME is Stron and you 
must play to oppose the evil 
Mad Control Plan. Move your 
laser bike with the cursor keys. If the 
crushers hit your trail they will be 
destroyed. If you hit your trail, the edge 
of the play area, or a guard, or if you 
run out of time before all the crushers 
are dead, you will be destroyed. 

There are four levels to survive, each 
with a shorter time limit, and faster 
speeds than the previous level. On the 
fourth level the guards are invincible 
and you must try to survive until the 
time limit. 

Laserbikes was written for the 16K 
Spectrum by Roger Allen of Gerrards 
Cross, Buckinghamshire. It is divided 
into tw r o parts, the first of which con¬ 
trols the machine code. LOAD and 
RUN the first section, then LOAD the 
second section and RUN by entering 
GOTO 20. 


Part 2 — continued. 


* FOR n-52 TO 255' PLOT «,!€• DR 
AW 0,30- NEXT n 

110 LET e-1* LET f-0- LET a*-"D 
0 YOU WANT THE INSTRUCTIONS?"■ L 
ET d-i• LET•a-40■ LET b-1' LET c 
*4 : GO SUB 9000 

120 PAUSE 4e4• IF INKEY*<Vm" T 
HEN GO TO 200 

130 CLS • PPINT RT 0,8; FLASH 1 
j INK 2; PAPER 6;"<16*196>";AT 2 
,8;"<16*196 )";AT 1,8j“<i96) 

<i96>"; FLASH 0;AT 1,9; 
PAPER 1; INK 5;"M.C.P. READOUT" 
140 DATA "PROGRAM NAME ","STRON 
","CRIME 1 ","EVADING THE M.C.P.", 
"VERDICT•","GUILTY","PUNISHMENT - 
","TO PLAY THE GAMES","ASSIGNED 
GAME■","LASERBIKE","OPPONENT•"," 
THE M.C.P.","CONTROLS•","COMPUTE 
R KEYS 5 TO 8" ,"TASK•","DESTROY 
CRUSHERS","RULES•","DODGE WALLS 
AND CRUSHERS","PRIZE•■,"FREEDOM" 
150 RESTORE 140'• LET f-2■ LET 
»-0 FOR m-3 TO 21 STEP 2 PAUSE 
10O- FOR t-0 TO I' READ a*' LET 
*-20-20*!’ LET b-2• LET c-4+3*l 
- LET d-m- GO SUB 9080- LET f-2+ 
<LEN *• AND t-0)' PAUSE 20 NEXT 
l- NEXT m- LET e-1- LET f-0 


200 PAUSE 100- INK 1- LET t«900 
■ LET u—20’ LET z-l- LET a«-"PRE 
SS ANY KEY TO PLAY"- LET d-0• LE 
T **30- LET b*l- LET c-fc• GO SUB 

9000 

210 PAUSE 4e4 

220 CLS * POKE 32009,INT <t^256 
>- POKE 32012,t-256*PEEK 32009- 
POKE 32405,u-1* POKE 32113 ,ur PO 
KE 32598,149-< 2*< 20-w > > • POKE 32 
528,2*<10 AND z>3)* POKE 32386,1 
62-K15 AND z>3) 

239 FOR n-32621 TO 32621*2*w ST 
EP 2 POKE n,INT <RND*19>+4' POK 
E tv* 1,1 NT <RND*20)*3- NEXT r\ 

240 PRINT AT 0,0; INK 5;"Z0NE- M 

;z;" "♦<"ENERGY" A 

ND z<-35*< - TTHE" AND z >3 >■*■ 

t- LET l-USR 32900 

250 IF l>i OR <1-0 AND z<-3> TH 
EN LET *•-"PROGRAM STRON DESTROY 
ED M * LET *—5- LET b-2‘ LET r-*4 

LET d-8 GO SUB 9088 GO TO 260 
-< 60 AND t<>0) 

260 IF t-0 AND z<-3 THEN LET a* 
-"ENERGY EXHAUSTED"- LET G 

0 SUB 9000 GO TO 200 

270 FOR n-40 TO 0 STEP -.5‘ BEE 
P .008,n■ BEEP .008,n-10 ! NEXT -n 


> PAUSE 20• RESTORE 300' LET 7«z 

• 1« LET w*«w-4+<12 AND 7-4)+<2 AN 
D 7 >4 •' LET t-t-< 200 AND 7.04H 
100 AND z°4 )♦< 70O AND 7>3> 

280 FOP m-1 TO 6-K 3 AND 2-4 >• P 
ERD a*- LET d-tn*2*5-< 5 AND 7-4 >• 
LET a«25*<18 AND m-6>- LET b-2’ 
LET e-6 * GO SUB 9000' PAUSE 10' 
NEXT m 

298 RESTORE 310' FOR r*-l TO 7' 
READ a,b- BEEP a^2,b NEXT rr GO 
TO 228 

300 DATA "CONGRATULATIONS STRON’ 
","YOU SURVIVED","BUT YOU MUST B 
EAT ME AGAIN","THAT IS,","IF YOU 
WANT YOUR FREEDOM!","HA' HA! HR 
! HA! HA!","BUT THIS TIME MY CRU 
SHERS ARE","INVINCIBLE AND YOU M 
UST SURVIVE","THE TIME LIMIT!" 

310 DATA 1.75,0,.25,3,1.75,2,.2 
5.5..25,3,1.75,6,2,7 
9000 PRINT =#b;RT d,<32-LEN a*V2 
*e+f; 

9010 FOR rr-1 TO LEN ?* PRINTS 

• INK c? a$<n>;’ BEEP .01,a- NEXT 
n- RETURN 

9999 SAVE "STRON1" LINE O' BEEP 
1,1* SAVE "STR0N2-C0DE 32008,620 

• BEEP 1,1 
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ATIC ATAC - For me 48K Sinclair ZX 
Spectrum 

ATIC ATAC - The super spooky 3D 
horror G.A.S. (Graphic Arcade 
Simulation) Adventure Game. 

ATIC ATAC - Arcade standard. 

100 % machine code, incredible 
sound effects, amazing smooth high 
resolution graphics, the totally new 
addictive concept and all those extra 
features you expect from the 
ULTIMATE games people 
Desgn - The ULTIMATE PLAY THE 
GAME design team 


Dealer enquiries welcome. Phone (0530) 411485 


Post this coupon tot 

ULTIMATE PLAY THE GAMI 
LE6 5JU 

Please rush methefollowm 

□ LUNAR JETMAN 

i rnnwF 

7j JET PAC (8X branded 
I enclose cheque/PC for £. 


Leicestershire, 


ATIC ATAC 


LUNAR JETMAN -48KZX 
Spectrum 


COOKIE -16 48KZX 


Spectrum 


LUNAR JETMAN Fo*:re48K 
Sinclair ZX Spectrum 
LUNAR JETMAN ’he U • ~3 - 
mtergaiactrc G.A.S. (Graphic 
Arfcade Simulation) Adventure 


LUNARJETMAN 

standard 


resc-jpdr graphic's 
w aad-ctive concept 
a*t'a features you 

:~e ULTIMATE games 


ULTIMATE PLAY 


THE GAME des gn 


PSSST -19 48KZX 

Spectrum 


JET PAC -16 48KZX ATIC ATAC 

Spectrum or 8K Expanded 


JOHN MENZIES. LASK 
department stores and 

Alternatively, send me c< 


£ 5.50 each including VAT 
packing within UK. 




















E scape from time is the 

first full-scale adventure pro¬ 
gram for the 48K Spectrum to 
be printed in Sinclair Programs . Your 
aim is to escape through time into your 
own world. To do so you must find the 
crystal of power and a microchip to 
power your time machine. 

Once you have them you must take 
them to the Time Room. Commands 
which you will use most frequently are 
north, south, east, west, up, down, en¬ 
ter, leave, look, take, drop, list and 
open. 

Written by Mark Chapman of Brack¬ 
nell, Berkshire. 


16 POKE 23605,26- GO TO 1106 

15 PRINT THE OBJECT IS To E 
SCAPE BRCK INTO YOUR OWN TIME 
THROUGH A TIME MACHINE.TO FLY 
THE MACHINE.R PROGRAMED M1CR0-C 
HIP AND THE CRYSTAL U p POWER AR 
E NEEDED. 

GOOD LUCK 

I 99 

20 IF o<3H3 THEN GO TO 155 

■30 LET ti-6 LET £-6 LET c—6 
LET LET u-6 LET ch-6 LET e 

r>-6 LET l*-0- GO SUB <2O0G+mrtl6 

46 LET mr=6 LET mm=lNT <. RNDY8 
>+l 

50 IF mm*6 AND r<>6 THEN LET m 
r-n 

60 IF mm-5 AND s<>0 THEN LET « 
r»s 

70 IF AND e<>0 THEN LET m 

r-® 

80 IF mm-3 AND u<>0 THEN LET m 


90 IF mm-2 AND u<>6 THEN LET m 
r«u 

100 IF mm=l AND d<>0 THEN LET rn 
r=d 

116 IF mm=7 AND erK >0 THEN LET 
ror-en 

126 IF mm*6 AND 100 THEN LET m 
r-l 

130 IF mr«0 THEN GO TO 40 
140 IF THEN PRINT IN TH 

E ROOM WITH YOU IS THE MUMMY! 
"• LET ' GO SUB 9396 

150 IF x>-5 THEN GO TO 1250 
155 LET r>-0- LET 4=0' LET e-6 
LET ui-0 1 LET u-0 • LET d-6 • LET e 
n-0' LET 1-0 GO SUB 2000+r*10 
160 LET z-0 
170 FOR f-1 TO 12 
180 IF c(f)Or THEN GO TO 210 
190 IF z-0 THEN PRINT '" THERE 
IS RL90 1 " 

200 LET z—1 ■ PRINT " "jc *<f> 
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950 PRINT '" THE ROCK FACE OPEN 
S RND YOU WALK THROUGH."• PRO 

SE 100 
960 GO TO 20 

970 IF r<>12 THEN PRINT ' 11 YOU 
CRN'T ."> GO TO 220 

971 FOR f-1 TO 4 

980 IF b*< f, TO 4 >-"wbod" THEN 
GO TO 1000 

990 NEXT f' PRINT YOU DON'T 
HAVE ANY WOOD."' GO TO 220 
1000 LET b*< f>- M ladder" 

1010 PRINT '" YOU'RE R GENIUS I" 
1020 GO TO 660 
1030 FOR f-1 TO 4 
1040 IF b*< f/ TO 10) 

M THEN GO TO 1060 
1050 NEXT f 1 RRINT '" YOU DON'T 
HAVE RNY OIL. GO TO 228 
1068 LET o<5)-l 

1079 PRINT '" THE BUTTON IS LOOS 
E. " 1 GO TO 220 

1080 IF r< >31 THEN GO TO 270 
1085 FOR f-1 TO 4 

1090 IF b»(f. TO 8)*"hair Pin" T 
HEN GO TO 1110 

1100 NEXT f- PRINT '" YOU NEED S 
OMETHING TO PICK THE LOCK WITH." 

• GO TO 228 
1110 LET oC 4 >—1 

1120 PRINT '" THE DOOR IS OPEN." 

• LET er-35- GO TO 220 

1130 IF r-35 OR r-43 THEN GO TO 
1135 

1134 PRINT '" I DON'T SEE R BUTT 
ON I"' GO TO 220 

1135 IF o< 5 )~ 1 THEN GO TO 1160 
1140 PRINT '" THE BUTTON IS TO S 
TIFF TO PUSH." 

1150 GO TO 220 
1160 LET r-37 

1170 PRINT '" THE LIFT RISES." 1 
GO SUB 9300- GO TO 20 
1180 PRINT '" YOU CRN'T GO THAT 
WRY."- GO TO 220 

1190 RESTORE 9000 1 DIM o<5)- DIM 
b*4,10>- DIM ctl2)- DIM c*< 12/ 
10 ) ' 

1200 LET y —0 1 LET yv-0- LET x-0 
LET mr-21• LET b-1* LET r»! 

1210 FOR f-1 TO 12- READ A*.9 
1220 LET cCf>»9' LET c»f)'Jl' N 
EXT f 

1230 BORDER 7' INK 0' PAPER 7 L 
LS ■ PRINT FLRSH 1;“********ESCft 
PE FROM TIME********" 1 GO TO 15 
1240 PRINT '" NOTHING HAPPENS. " ' 
GO TO 220 

1250 PAUSE 100- CLEAR 1 PRINT 
THE MUMMY CATCHES YOU AND TAKES 
YOU PRISONER OF HIS DOMAIN.THERE 
IS NO ESCAPE FOR YOU...SORRY!" 
1260 BEEP .001,50* BEEP .801,0 
FOR f-1 TO 5 1 BEEP .083,INT <RND 
*20)' NEXT f> BEEP .01,5- GO TO 
1260 

1270.IF r-21 THEN LET o<3)-l 
1280 IF r-4 THEN LET o<1 )-l 
1290 IF r< >21 AND r<>4 THEN GO T 
0 1330 

1300 IF r-21 THEN PRINT THE M 
UMMY CASE OPENS RELEASING THE MIJ 
MMY FROM ITS TOMB." 

1310 IF r-4 THEN PRINT '" THE DO 
OR SWINGS OPEN." 

1314 IF r-21 THEN GO SUB 9330 

1315 IF r-4 THEN LET en-14 
1320 GO TO 228 

1330 PRINT '" YOU CAN'T." 1 GO Tfj 
220 

1340 IF r-mr THEN GO TO 1360 
1350 PRINT '" YOU CAN'T."' GO TO 
220 

1360 FOR f-1 TO 4 
1370 IF b«< f, TO 5>-"kmfe" THEN 
GO TO 1390 

1380 NEXT f GO TO 1350 
1390 PRINT '" YOU STAB THE MUMMY 
AND IT DISINTERGRATES AT Y 

OUR FEET."- LET o<3>-8■ LET mr-0 
- GO SUB 9610* GO TO 228 
1480 PRINT '" YOU ENTER INTO AND 
THER ROOM THROUGH THE MIRROR. 

LET r-29 1 LET ©-0 GO TO 220 
2010 PRINT '" YOU ARE AT A CROSS 


car 


210 NEXT f 

229 INPUT "WHAT WILL YOU DO ?"; 
*• RESTORE 9100- CLS - PRINT " 
>"ul 

230 FOR c-1 TO 29- READ d*' IF 
LEN d®-2>LEN a* THEN GO TO 250 

240 IF d*<3 TO )-*•< TO LEN d»- 
2) THEN GO TO 288 
250 NEXT c 

260 PRINT '“INVALID COMMAND." 1 
GO TO 220 

270 PRINT '"COMMAND CANNOT BE C 
RRRIED OUT."* GO TO 220 
280 LET z-VAL d«< TO 2) 

290 GO TO 290+z*10 

291 GO TO 1400 
295 GO TO 1340 

300 IF b>-5 THEN PRINT «" YOU C 
AN'T CARRY ANYMORE."- GO TO 220 
310 FOR f-1 TO 12 
320 IF c< f >-r THEN GO TO 348 
330 NEXT f- PRINT '" I DON'T SE 
E IT I"* GO TO 220 
340 IF LEN a*-5>LEN cKf) THEN 
GO TO 330 

345 IF LEN a*<6 THEN PRINT '“ T 
AKE WHAT ?"• GO TO 220 
350 IF a*< 6 TO >-c*<f, TO LFN 3 
*-5> THEN GO TO 378 
360 GO TO 330 
370 FOR 9-1 TO 4 
388 IF 9. 1 )=“ " THEN GO TO '» 
00 

390 NEXT 9 1 STOP 
408 LET b*< 9 )”C*C f > 

4O0 LET b*< 9 )-c*C f > 

410 LET b-to+1 
420 LET c (f >-0 
430 PRINT '" OKAY." 

448 GO TO 228 
450 FOR 9-1 TO 4 
460 IF LEN a*-5>LEN b*<9> THEN 
GO TO 488 

465 IF LEN a*<6 THEN PRINT '" D 
ROP WHAT ?"■ GO TO 220 
470 IF a*<6 TO )-b*<9, TO LEN ? 
•-5) THEN GO TO 490 
480 NEXT 9' PRINT '" YOU DON'T 
HAVE IT I"- GO TO 220 
490 LET b-b-1 
500 FOR f-1 TO 12 
510 IF c<f)"0 THEN GO TO 530 
520 NEXT f- STOP 


530 LET c<f)-r LET c*<f)-b*<9> 
• LET bf< 9 )-"" 

540 GO TO 430 
550 RESTORE 9200 
560 FOR 9-1 TO 4 
570 IF LEN a»-4>LEN bS'.9> THEN 
GO TO 590 

575 IF LEN a*<5 THEN PRINT '" U 
SE WHAT ?"• GO TO 228 
580 IF a«<5 TO )-b*<9, TO LEN a 
•-4) THEN GO fO 600 
590 NEXT 9- PRINT '" YOU DON'T 
HAVE IT !-* GO TO 220 
600 FOR h-1 TO 10- READ e* 

610 IF VAL e*< TO 2>-r THEN GO 
TO 638 

620 NEXT h- PRINT '" YOU CAN'T 
IN HERE."- GO TO 220 
630 IF e%<3 TO K>bS<9, TO LEN 
e»-2> THEN GO TO 620 
648 GO TO VAL e*< TO 2>*10+3000 
650 GO TO 28 

660 PRINT YOU APE CARRYING" 
679 LET 9-1 
608 FOR f-1 TO 4 
690 IF b*< f # 1 " THEN GO TO 7 

28 

700 PRINT " " ;b*< f > 

710 LET 9-0 
720 NEXT f 

730 IF 9 THEN PRINT " NOTHING." 
740 GO TO 220 

750 IF n-0 THEN GO TO 1180 

?60 LET r-n- GO TO 20 

770 IF *-0 THEN GO TO 1190 

780 LET r-s GO TO 20 

790 IF e-8 THEN GO TO 1188 

800 LET r-* 1 GO TO 20 

810 IF u-0 THEN GO TO 1180 

020 LET r-w \G0 TO 20 

830 IF u-0 THEN GO TO 1100 

840 LET r-u- GO TO 20 

850 IF d-8 THEN GO TO 1180 

860 LET r-d- GO TO 20 

870 IF er-0 THEN GO TO 1188 

880 LET r-er GO TO 20 

890 IF 1-0 THEN GO TO 1198 

900 LET r-1 GO TO 20 

910 CLEAR 1 STOP 

920 IF r—8 THEN GO TO 940 

930 IF r< >11 THEN CO TO 1240 

935 LET r-8 GO TO 950 

940 LET r-1! 
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-ROODS IN THEPR3S0GE." 

20Tb LET n-2- LET s-9' LET 
LET 9-3- RETURN 

2920 PRINT '" YOU ORE OT 0 JUNCT 
ION WHERE YOUCRN GO NORTH/WEST 0 
R SOUTH." 

2025 LET n-5’ LET W-7- LET i-1 
RETURN 

2030 PRINT '" YOU COME TO R JUNC 
TION IN THE PASSAGE WHERE THE E 
XITS RRE WESTAND NORTH.AN OPEN D 
OOR IS IN THEEAST END OF THE PAS 
SAGE. " 

2035 LET n-4- LET w-1 ■ LET «?r>-l3 
• RETURN 

2040 PRINT '" THE PASSAGE COMES 
TO A DEAD ENDAPART FROM A DOOR T 
0 THE EAST. 

2041 IF O<l>-0 THEN PRINT "THE D 
OOR IS LOCKED TIGHT." 

2042 IF G< 1 >-l THEN PRINT "THE D 
OOR IS WIDE OPEN."* LET EN-14 
2045 LET »-3' RETURN 

2050 PRINT '" AT A TURNING IN TH 

E passage. Steps go down.the p 

RSSAGE GOES SOUTH AND EAST." 
205b LET s-2 1 LET e-6- LET d-10 
RETURN 

2060 PRINT A HIGH WALL SEEMS 
TO PREVENT YOU FROM GOING EAS 
TWARDS.TO THEWEST THE WAY IS CLE 
RR. " 

2065 LET w'-S RETURN 
207O IF o< 2 >“0 THEN PRINT THE 
FLOOR IS COVERED IN GREASE AND 
AS YOU TRY TO GO OVER IT.YOUSLIP 
BACK.IT LOOKS AS IF YOU WILL 
HAVE TO GO EAST." 

2073 IF o<2>-1 THEN PRINT YOU 
RRE IN A CLEAN,EAST/WEST PASS 

AGE."* LET 1*1“ 12 
2075 LET c-2- RETURN 
2080 PRINT '" A SHEET OF ROCK BL 
OCKS YOUR WAYTO THE WEST SO EXIT 
TO THE EAST." 

2085 LET e-1- RETURN 
2090 PRINT YOU COME TO A JUNC 
TION IN THE PASSAGE.DIRECTIONS 
APE NORTH, EAST AND SOUTH." 
2095 LET n*f LET s=!7* LET c-i5 
- RETURN 

2100 PRINT '" AT THE BOTTOM OF T 
HE STEPS IS RCELLAR.THE ROOM IS 
PRETTY MUCH EMPTY AND VERY DIRT 


Y. " 

2105 LET u-5- RETURN 
2110 PRINT YOU RRE IN A ROOM 
WITH A TABLE IN THE CENTRE C«F IT 
.BEHIND YOU, THE ROCK FACE IS CL 
OSED. " 

2115 RETURN 

2120 PRINT YOU ARE IN A WORKS 
HOP.TOOLS HANG AROUND THE WAL 
LS AND A WORK BENCH IS IN TH 

E CENTRE." 

2125 LET l"7• RETURN 
2130 PRINT YOU ARE IN THE LIV 
ING QUARTERS OF A CREATURE.A FIR 
E PLACE IS INTHE CORNER OF THE R 
OOM. M 

2135 LET 1-3- RETURN 
2140 PRINT '" THROUGH THE DOOR Y 
OU FIND THAT YOU ARE IN A LIBRAR 
Y.BOOKS ARE STACKED NEATLY ON S 
HELVES THAT ARE VERY HIGH." 

2145 LET 1-4 RETURN 
2150 PRINT '" YOU COME TO A RIVE 
R FLOWING NORTH TO SOUTH.ON T 
HE BANK IS A BOAT-YOU CAN RETURN 
TO THE WEST." 

2155 LET u-9• RETURN 
2160 PRINT '" YOU ROW THE BOAT A 
CROSS THE RIVER WHERE YOU ENT 
ER A CAVERN. YOU BOARD LAND AND 
LEAVE THE BOAT ON THE BANK." 
2165 RETURN 

2170 PRINT '* YOU RRE AT THE TOP 
OF SOME STEPS.A PASSAGE LEA 
DS NORTH." 

2175 LET d-38- LET RETURN 

2180 PRINT YOU ARE AT THE BUT 
TOM OF THE STEPS.A CO?IOUR GUE 
3 NORTH AND A DOOR IS IN THE WE 
ST WALL." 

2105 LET u-17- LET n-is i_ET 

0- RETURN 

2190 PRINT YOU ARC IN THE CEN 
TPE OF SOME PASSAGES.THEY GO NO 
RTH,EAST AND SOUTH." 

2195 LET c—23- LET n-2l LET s-J 
8' RETURN 

2200 PRINT '” YOU ARE IN A BROOM 
CUPBOARD." 

2205 LET 1-18 RETURN 
2210 PRINT '“ YOU APE T N AN EGYP 
TIAN ROOM.A MUMMY CASE STANDS I 
N THE CORNER.ON IT IS INSCRIBED 
POKE 23606,60' POKE 23607,O 



•* PRINT "BEWARE";* POKE 23607,6 
0- POKE 23666,0’ PRINT "~ . EX 
ITS ARE SOUTH AND EAST." 

2212 IF o< 3 >-l THEN PRINT THE 

MUMMY CASE IS OPEN AND EMPT 

Y !" 

2213 GO SUB 9330 

2214 IF o<3)-l THEN LET ©r»-27 

2215 LET s-19- LET e-22 RETURN 
2220 PRINT YOU COME TO A DEAD 
-END IN THE PASSAGE.THE ONLY WA 

Y BACK IS WEST." 

2225 LET u-21- RETURN 

2230 PRINT '" THIS PASSAGE IS CL 
OSED OFF AT . ONE END.A SIGN IS U 
NREADABLE 0N X THE WALL.EXIT TO TH 
E WEST." 

2235 LET <j^19* RETURN 
2279 PRINT '" YOU ENTER THROUGH 
THE MUMMY CASE AND IT SWINGS 
SHUT—TIGHT ! YOU ARE NEAR THE F 
ND OF YOUR ADVENTURE.HAVE YOU 
GOT THE CRYSTAL OF POWER AN 

D THE MICRO CHIP ? IF YOU HAVE 
THEN USE THEMIN THE RIGHT ORDER. 


2271 PRINT 
NE OF THEM 
EN YOU APE 
2275 RETURN 
2280 PRINT 
THE WEST.ON 
SAGE IS A 
TO THE EAST 
NG IN THE 
2285 LET *- 
2296 PRINT 


" IF YOU DON'T HAVE 0 
OR EITHER OF THEM TH 
LOST." 

A HIGH WALL IS TO 
THE LEFT OF THE PAS 
MIRROR IN ~HC MHIJ . 
YOU CAN SEE A TURNI 
PASSAGE." 

30- RETURN 

A MIRROR IS IN THE 
WALL BEHIND YOU.THE ROOM YOU AR 
E IN IS AN ARMARY.A DOOR IS OP 

EN TO THE EAST." 

2295 LET 1^28* LET <?Y»-3S RETURN 


2300 PRINT YOU ARE AT A BEND 
IN THE PASSAGE.YOU CAN GO 

SOUTH OR WEST." 

2305 LET .j-28- LET 5-31 . RETURN 

2310 PRINT THE PASSAGE ENDS I 
N A DOOR.YOU CAN GU BACK NORTH I 
F YOU NEED. "i 

2311 IF OC4>-0 THEN PRINT "THE D 
OOR IS LOCKED." 

2312 IF 0<4>-l THEN PRINT "THE D 
OOR IS OPEN." 

2313 IF CK4>-1 THEN LET ec»35 
2315 LET n-30 RETURN 

2350 PRINT '" IN THE ROOM IS A L 
IFT.THE BUTTON IS ON THE WA 

LL BY IT.RN OPEN DOOR IS THE EX 
IT FROM THE LIFT ROOM." 

2355 LET 1^30 RETURN 

2360 PRINT '" IN THE ROOM IS A D 

PESSINC TABLE" 

2365 LET 1-29- RETURN 
2370 PRINT '" THE LIFT OPENS ON 
TO A HALL. YOU CAN CO BACK DOW 
N OR EAST." 

2375 LET d-43- LET e-38 RETURN 
•383 PRINT '" YOU ARE STANDING A 
T A JUNCTION.YOU MAY CO NORTH,HE 
ST OR SOUTH." 

23*5 LET -j-42 • LET r,-:39 * LET 
0 PETUPN 

2390 CLEAR * PRINT * «• YOU FALL I 
NTO A PIT COVERED BY FLOOR TILES 
AS THEY OPEN UNDER YOUR FEET.Y 
OU TRY TO GRASP THE EDGE BUT Ml 
SS AND FALL TO YOUR DEATH." 1 PA 
USE 300 GO SUB 9468 
2395 BEEP .003,10* BEEP .01,0* B 
EEP .62,1NT <RNDY10> GO TO 2395 
2400 PRINT '" YOU WALK INTO A RO 
OM AND ON THEFLOOR YOU SEE A TRA 
P DOOR.YOU WILL HAVE TO GO BAG 
K NORTH, BUT ONLY ONCE." 

24Q5 LET rt-38- LET s-41 ■ RETURN 
2410 GO TO 2390 

2420 GO SUB 9530- PRINT '" YOU A 
RE BACK AT THE LIFT.YOU CAN ON 
LY GO DOWN OR BACK EAST." 

2425 LET e-38 LET d-43* RETURN 
2430 GO SUB 9590> PRINT '" THE L 
IFT OPENS ONTO THE GROUND FLOOR. 
A DOOR IS OPEN IN THE WESTWALL 0 
F THE ROOM.PUSH THE BUTTONTO GO 

BACK UP." 

2435 LET 1-30* RETURN 
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DRAW -20.0- DRAW 0.-20' BEEP . 0 
1,HK2• NEXT 9- NEXT h 
9310 DRAW 20.0- DRAW 0.20- DRAW 
-2Q.0 DRAW 0.-20- OVER 9 

'l i 'li RETURN 

0230 PLOT 122.0- DRAW 20.0- DRAW 
5,4A- DRAW -is, iO- OP AM —IS. *-10 
• DRAW V. -<u\ 

9340 IF o<3>"1 THEN 00 TO 9370 
9350-POKE 23607.9- PRINT AT 17,1 
5; "f'9h" 

9360 POKE 23607.60- CO TO 9380 
9370 PLOT 152,9- DRAW 20,0- DRAW 
s.4Q DRAW -13,10 DRAW -IS,-10 
- DRAW 5.-49 
9380 RETURN 

9:390 PLOT 89,9 DRAW 4,30- DRAW 
0,20 DRAW -3.-28- DRAW -6,0- DR 
AW 3,29- DRAW 10,0- DRAW -2.10' 
[•PAW 11,0- DRAW -2,-10- DRAW 10, 


940e DPAW 3,-28- DRAW -6,0- DRAW 
- 2 , 20 - DRAW 0,-20- DRAW 4,-39- 
DRAW - 22 . 0 - DPAW 10,0- DRAW 1,15 
[■PAW 1,-15 
9410 RETURN 

9420 OVER 1- FOR h-0 TO 50 STEP 
4 FOR 9-1 TO 2- SEEP .01,28- PL 
OT t?0,h’ DRAW 40,0- DRAW 19,30 
DRAW -15,0- DRAW -15,5' INK 5 1 
DRAW 4,4- DRAW -4,4. DRRW -.4,-4- 
[•RAW 4.-4- INK 0- DRRW -15,-5' 
DRAW -2S.0- DRAW 10.-30 
9430 NEXT 9 NEXT h' OVER 0 
9440 OVER 1 PLOT 120.h' DRRW 40 
,0- DRAW 10,30 DRAW -15,0- DRAW 
-15,5 INK ]NT <RND*7>' DRAW 4, 
4 DRAW -4,4- DRAW -4,-4- DRAW 4 
,—4 * INK 0- DRAW -15.-5 DRAW -1 
5,0 DRAW 10.-30 
941j0 PAPER 0 BORDER 0’ CLS • PA 
PER 7- BORDER 7 CLS • RETURN 
*AfS' PLOT 0.1O0- DRAW 255,0- DRP 
W -130,0- DRAW OVER 1;40,0* DRAW 


r 9470 PLOT 125,0 DRRW 50,0- DRAW 

0,10 DRAW -6,0- DPAW 0,-4' DRR 
W -39,2' DRAW -10,-2- DRAW -5,2' 
[■RAW -7,-7, PI- DRAW 3,-1' DRAW 

— 3,0 

3210 CO TO 320 9480 PLOT 145,3 DRAW 0,-1- DRAW 

? :20 CLEAP PRINT ' " AS YOU REA -15,0- DRAW 9,2- DRAW 15,0- DRR 
• H IN AND CONNECT THEM 1CR0-CHIP, w 0.-1- DRAW 2,0- 

POWER FROM THE CRYSALIMFnOTATLY 9490 RETURN 

KILL-- YOU. BAD LUCK 1 “ GO TO 239 9580 PLOT 20,0 DRAW 0,150- DRAW 

s 0.-5O- DRAW 235,0- OVER 1• FOR 

3350 CLEAR PRINT ' " THE CRY3TA h-100 TO O STEP -3- FOR 9-1 TO 2 
L SLIP 1- INTO PLACE AND THE MAC PLOT 9,h- DRAW 20,0- DRAW 0,20 

HINE BEGINS TO SHAKE.YOU FALL UN DRAW -20,0- DRAW 0,-20- BEEP . 

C0NC10US AND WAKE UP TO FIND YOU 0l,h^2- NEXT 9- NEXT h 

RSELF BACK HOKE IN YOUR OWN TI 9510 DPA14 20.O' DRAW 0,20- DRAW 

ME. WELL [•ONE INDEED!" -20,0‘ ['RAW 0,-20 OVER 0 

9360 PEEP .1,10 BEEP .1,20- BEE 9520 RETURN 

P .1,30- BEEP .2,2-0 BEEP .1.20' 9530 BLOT DRAW Q.1S0< DRAW 

FOP C-l TO 10 BEEP . 01,1 NT < fs 0,-50 DRAW 235, G 1 DRAW -235,0 
10 >+ 1 Q- NEXT t* CO sue 9420 GO 9540 PLOT 0 , 100 - OVER 1 - DRAW 20 

TO 3350 , 0 DRAW 9,20' DRAW -20,0- DRRW 

3330 IF a*<5 TO micro-chiP" 0 0.-20 OVER O 

P 9.*' 5 TO >""m" THEN LET y~l 9550 RETURN 

3390 IF *S<5 TO >-“ladder" THEN 9560 PLOT 0,50 DRAW 127,2- DRAW 

LET r «6 . 127,-2 

340G CO TO 3290 9570 PLOT 49.51- DRAW -10, 15- DR 

9090 DATA "key", 1 !."oars",12,"uo AW 80.0- DRAW -1,-14 PLOT 0,100 
od" . 13, "code book", 14, "boat", 15, DPPW 50, -30 

"crystal", 16. "kmfe",29, "can oC *589 DPAW 4Q, 10 - [-RAW 100 .- 10 - D 
oil ", 10,"micro-chiP".40,"hair Pi PAW ttt.lQ- DRAW 55,0 
n" -36, "moP ", 20 , "torch" , 1 9596 PLOT 50,30- DRAW -5, IQ- PLO 

9100 DATA ".190 throuflh mirror", T 56.30- DRAW 19,10- PLOT 59,30' 
". 1 enter mirror" 1 throy9h mirr ['RAW 19,s- PLOT 50,39- DRAW 10 . 
or",“.5kill","46north“,“48*oyth n 9- PLOT 50,30 DRAW 9,10' PLOT 5 
."50eact","52uest",“34uP","56d©ui 9,30• DRAW -19.5• PLOT 50,30- DR 

«","59cnter","60leave","63oPen s AW - 10.0 
esame", "98oPen"-, ”69make ladder", *609 RETURN 

"74cj ! button", "79Piek lock", "64 9619 PLOT 125,20- DRAW 28,0- DRR 

Push button","91 take","16droP",“ W INK 2 ;10,9- DRAW INK 2;3,-2' D 
26use","361ook","37tist","624uit RAW INK 2;-3,-2' DPAW -30,0- DRfl 
","46n","49s","50e","52u a ."56d" U 0-5 DRAW 0,14- DPAW 0 ,-fc' DR 
9209 DATA "23code hook","16boat" RW -19,9 DRAW 9,-2- DRAW 19,9 
,"281 adder",”061 adder"," 0 ?moP"," 9620 PLOT 49.39 DRAW 109.0' DRA 
15boat","27cr*stal","10kev","2ic W -59,0 L-RAU 8 / 100 - DRAW 9,-80' 
ode book". "27micro-chiP" DRAW 59 ,0 DRAW -100,9' DRAW 0 , 

9390 PLOT 20,0 DRAW 0,150- DRAW -29 DRAW 100,0- DRAW 9,120- DRA 
0-59 DRAW 235,0- OVER 1’ FOR W 0,-120 ['RAW -190,0- DRAW 0,12 
h-9 TO 190 STEP 3- FOR 9-1 TO 2' A 
PLOT 0.h• DRAW 20.0- DRAW 9,20« 9630 PETUPN 


3060 PRINT '" THE LADDER REACHES 
THE TOP OF THE WALL AND YOU CL 
IMB UP IT.ON TOP OF THE WALL YOU 
PICK IT UP AND USE IT TO GET D 
OWN THE OTHERSIDE." 

3065 LET r-29• GO TO 229 
3970 PRINT THE GREASE WASHES 
OFF THE FLOOPMAKING IT CLEAN." 
3975 LET o< 2 >-l- GO TO 29 

3150 FOR f-1 TO 4- IF b*<f, TO 4 
)-"oars" THEN GO TO 3153 

3151 NEXT C 

3152 CLEAR • GO SUB 9569- PRINT 
THE BOAT DRIFTS DOWN STREAM A 

S YOU DON'T HAVE ANY OARS.AS YOU 
DRIFT YOU HIT YOUR HEAD AND FA 
LLOVERBOARD.UNABLE TO REACH THE 
BANK,YOU DROWN."■ GO TO 2395 

3153 PRINT YOU ROW THE BOAT T 
0 THE OTHER BANK." 

3154 IF r-15 THEN GO TO 3!57 

3155 LET r-15- GO TO 20 
8157 LET r-16- GO TO 20 
2160 GO TO 3150 

3100 PRINT THE DOOR UNLOCKS A 
ND FALLS OPEN"- LET en<?0 ■ GO TO 


*210 PRINT 
MUMMY CASE 


THE WRITING ON THE 
SAYS "BEWARE""• GO 


3230 PRINT THE SIGN SftYS-~USE 
THE WORDS ""OPEN SESAME"" IN 
THE RIGHT PLACE AND YOUR WAY WIL 
L BE CLEARED."" GO TO 220 
3270 IF J*(5 TO ^"micro-chip" 0 
R a*<5 TO >-"m" AND yy-» THEN GO 
Tu 3220 

3275 CO TO 3389 

3280 PRINT '» v.jU CLIMB OVER THE 
WALL."" LET r-5- GO TO 29 

3299 IF a*<5 TO '•-"crystal" OR a 
*<5 TO >-"c" AND y-1 THEN GO TO 

3350 

3300 IF a*<5 TO '•-"crystal" OR a 
TK5 TO >^"c" THEN LET yy = l 
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39 PRINT "'Two rival 9an0s arm 
ed with waterpistols meet up one 

niSht in thedesert to fisht." 

40 PRINT "'The 9ar.9 on my left 
are INK 3;"MAGENTA" 

50 PRINT "'The 9an9 on my ri9h 
t are "; INK 1;"BLUE" 

60 PRINT "'Please wait whilst 
the user defineable SraPhics 

are loaded"In 9ood SINCLAIR t 
radition some music <?> will be 
Played while you wait." 

70 GO SUB 9O00 

90 DIM aS<704> 

90 PRINT OVER 1; INK 4; PRPER 
0;AT 0,0;a* 

190 80RDER 4 

110 PRINT RT 21.2;"Press ENTEP 
key TO CONTINUE " 

120 PAUSE 4e4 

149 PRINT RT 1.0; OVER 1; INK 7 
;**< TO 672> 

150 PRINT RT 2.0;"P MESSAGE TO 
THE INK lj“BLUE"; INK O;" CRN 
G" 

160 PRINT ' "Your controls arc- 

170 PRINT ‘"KEY I FUNCTION" 

180 PRINT " l I Moves you up." 
190 PRINT " 2 !Moves you down." 
200 PRINT " 0 !Draw <you can't 
move now)." 

210 PRINT " W !Put Sun back in 
holster (you lean move asaxn n 
ow>. " 

220 PRINT " R !SQUIRT CfireJ." 
230 PRINT RT 21,2;“Press ENTER 
key TO CONTINUE " 


240 BORDER 0 
250 PAUSE 4e4 

260 PAPER 2- INK 7 : PRINT PT 0, 
0; INK 6; PAPER 2; OVER l;a*;RT 
1,0; OVER 0; a*< TO 672) 

350 PRINT RT 2,0;"fl MESSAGE TO 
THE INK 3;"MAGENTA"; INK 7;" 
GANG" 

369 PRINT '"Your controls are ; 

«. H 

370 PRINT '"KEY! FUNCTION" 

360 PRINT " 0 !Moves you uP." 
390 PRINT INK 2; PAPER 0;"SYMeO 

L SHIFT", INK 7; PAPER 2;"!Moves 
you down.“ 

400 PRINT " P !Draw <you can't 
move now)." 

410 PRINT " 0 !Put Sun back in 
holster {you Scan move a9am n 
ow>. “ 

420 PRINT " L !SQUIRT EfireJ." 
430 PRINT RT 21.2;"Press ENTER 
key TO CONTINUE " 

440 PAUSE 4e4 

450 PRINT RT l,0;a*< TO 672) 

460 BORDER 6 

500 PRINT RT 1,0;" AND SOME INS 
TRUCTIONS TO BOTH’-" 

510 PRINT "'You mas press more 
than one key at a time.” 

520 PRINT "You may shoot out an 
y object." 

530 PRINT “You can move off the 
screen" i.e. if you move off 
the toP you reappear at the bo 
ttom ). " 

540 PRINT “Only one Pair of 9un 
men fisht atonce BUT sometimes a 


WAGGON wxAlcome down the screen 
to try and shoot you In the le9 
s but you will survive if you 
are behind aCACTUS." 

550 PRINT FLASH 1' BRIGHT l'"ST 
ART THE TAPE" 

568 LOAD "" 

600 SAVE "WAIT THEN STOP TAPE" 
LINE 1 
9999 STOP 

9900 FOR j”144 TO 164‘ BEEP .4,- 
140-K j*1.2)- FOR k-0 TO 7’ eEEP 


.002,40+(k*2 ) ! READ n- POKE USR 
CHR* j+k , n : NEXT k NEXT j 
9920 RETURN 


9830 DATR 24,126,24,24,126,126,1 
26,126,126,126,60,60,60,60,126,2 

55.24.126.24.24.63.63.60.60.56.5 
6,24,24,24,24,20,30,0,0,0,0,222, 
208.0,0,24,126,24,24,252,252,60, 
60,28.28,24,24,24,24,56,120,0,O, 
0,0,123,11,0,0,0.0,0,0,64,97,127 
,127,0,0,2,2,15,255,242,243,0,0, 
64,64.240,255.79,207,0,0,0,0,2,) 
30,254,254,31.46,96,64,192,128,1 
23,128,248,12,6,2,2,1,1,1,192,64 
, 64,64,64,127,127,15,3.2,2,2,2,2 
54,254,240,244,244,244,254,254.4 
,4,4,47,47,47,127.127,32,32,32,1 
45,66.60,37.164,60,66,137,0,2,7, 

71.231.231.231.231.231.119.127.6 
2,60,60,60,69 


30 
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I H BALCHIN of Wallingford, 
Berkshire is a keen computer pro¬ 
grammer. He reads at least eight 
micro magazines each month to know 
all the latest news about computers and 
his friends are shown his perfected pro¬ 
grams so that he can benefit from their 
advice and opinions. 

While working on Shoot Out for the 
16K Spectrum he was trying to write a 
game which two players could play 
simultaneously, as he felt there were 
insufficient of them on the market. 

In Shoot Out two rival gangs meet in 
the desen for a fight with water pistols. 
The blue gang moves up with 1, down 
with Z, draws with Q, replaces guns 
with W, and squirts with A. The ma¬ 
genta team moves up with 0, down with 
symbol shift, draws with P, replaces 
guns with O, and squirts with L. 

Both gangs must avoid the cowboys 
who drive past in a wagon, occasionally 
shooting any gangster who is not safely 
behind a cactus. 


1 BORDER G 
IS T 

19 LET a=2l 
LET <1=31 

20 LET ls=0 


PAPER O 


LET b=0 


INK 9- C 
U 

LET c-1- 
T 

LET rs=0 U 

100 PRINT AT 10,1;"SHOOT OUT " 

101 PRINT ' INK 1;"BLUE", INK 3 

>"MAGENTA", INK 6;"l .UP. 

...0","Q .DRAW.P", "H.. RE 

PLACE GUN. .0", "A .FIRE." 

; INK 7;"ENTER", INK 6;"Z .DO 

WN.INK 2;"SYMBOL SHIFT" 

102 FOR s=0 TO 3 T 

105 BEEP .1,0- BEEP .1,1 BEEP 
.07,0- PEEP .2,-1 

106 FOR f—40 TO 40 STEP 10- FO 
R 9=0 TO .9 STEP .1 BEEP .8l,f+ 
9 NEXT 9 NEXT f 

107 NEXT £ RO 

108 BEEP 2,30' BEEP 1,35' BEEP 
.5,40 BEEP .25,45- BEEP .1,50 

90O CLS - PPINT AT 21,2; PAPER 
1; INK 7;" SCORE ";ts;TA8 14, PA 
PER 3; INK 7.:" SCORE ";ra 

RANDOMIZE 

910 INK 4 BRIGHT 1- FOR f-3 TO 
18 STEP 3- PRINT AT f,5;"T";AT 

f—1,26;"T";AT f+1,5; "U"; AT f,26; 
"U"' NEXT f 

911 INK 8 

920 FOR f=0 TO 3- PRINT AT f*6, 
14; INK 7;"pm";AT f*6+l,14; INK 
2;"OP";AT f*6+2,14; INK 2;" RQ» 
NEXT f 
930 BRIGHT O 

1005 LET z-145 LET x-145 
1010 FOR *3-20 TO 20+1 NT <RND*30O 


1011 LET 3-3-CIN 63486-254 AND x 
<M47>+< IN 65278-253 AND x<>147) 
+< a <2 >-< *>20 > 

1020 LET r=c-<IN 61438-254 AND z 
0150 >+< IN 32766=253 AND Z<>150> 
+< c< 2 >-< c >23 > 

1822 IF IN 645100255 THEN LET x 
-147 

1023 IF IN 573420255 THEN LET z 
= 150 

1024 IF IN 64510-253 THEN LET x= 
145* PRINT AT 3-1,1;" " 

1025 IF IN 57342-253 THEN LET z= 
145 PRINT AT c-1,30;" " 

1026 BEEP .005,-10- BEEP .005,69 

1030 IF *>=21 THEN LET *«£ PRIN 
T AT 19,0;" **;AT 20,0;" " 

1031 IF a<21 T HEN PRINT AT 3+1,0 

. •» M 

1032 IF c^2l THEN PPINT AT c+1,3 
1 ;" " 

1035 PPINT AT 0.0;" ";AT 0,31;" 

M 

1040 IF c>-2l THEN LET c-2 PR1N 

T AT 19,31;“ ";AT 20.31;" " 

1050 IF c>l THEN PRINT RT c-2,31 
. •» •• 

1951 IF C<~1 THEN LET c-20 PRIN 
T AT 1,31;" ";AT 2,31;" " 

1060 IF 3>1 THEN PRINT AT 3-2.0; 

I# •• 

1061 IF *<=1 THEN LET 3 -20 PRIN 
T AT 1,9;" ";AT 2.0;" " 

1870 PPINT AT 3 ,h; INK 1;CHR* y. : 
AT 3-1-0; INK 1;CHR* <x-l>;AT c, 
d; INK 3.CHR* z;AT c-l.d; INK 3; 
CHR* <z-l> 

1080 IF x— 147 THEN PPINT AT 3-1, 


1; INK 1; "g" 

1081 IF z-150 THEN PRINT AT c -t, 
30; INK 3;"h" 

1090 IF IN 650220255 AND *=14? 

THEN GO SUB 3080 

11Q0 IF IN 491500255 AND z=150 

THEN GO SUB 3100 

2O00 NCXT <3 

2010 LET q=INT <RND*2> 

2011 IF «-l THEN LET u=c 

2012 IF o-Q THEN LET 

2013 LET r=9Tll+9 
2015 FOR f-1 TO w—1 

2020 PRINT AT f-l,r;" ";AT f,r; 

INK 7;"Pin";AT f+l,r; INK 2; "OP" 

; AT 2+f.r; INK 2;“RQ"• BEEP O.01 
,f*3 

203O NEXT f 

2040 IF ^=1 THEN GO TO 2500 
2050 PPINT AT 3,r-l; INK 3 ; "hf" 
2060 IF ATTP < a,5 >>-64 THEN CO T 
U 2260 

2100 INK 6• PLOT 54,171-< j*3>• D 
PAW -50.0- BEEP .01,39- DRAW OVE 
R 1,50,0- GO TO 3300 
2220 INK 6 PLOT 54,171-C 3 * 8 >• D 
RAW -11,9 BEEP .01,68- PRINT AT 
3.5 ^ DPAW OVER 1;11,0: PRIN 
T AT j,5" 

2225 GO SUB 6c3 
2231 FOR f-w-1 TO 13 

2235 PPINT AT f-l,r;“ “;AT f,r; 

INK 7; 11 Mr," ; AT f+l.r-1; INK 2;" 

_UP " ; AT 2+f,r; INK 2; "RD" ■ BEEP 
.01,f'*=3 - 

2236 NEXT f 

2239 PRINT AT f-l,r;" ";AT f,r; 

" ".AT f+1,r;" " 
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2248 GO TO 1010 

2500 PPINT AT c,r+l; INK 1;"eg" 

2510 IF ATTP < c, 26 >>*64 THEN GO 
TO 2606 


T c-1.30;" " 

3205 LET ls~ls*l 

3215 PRINT AT 8,2; INK 5;"<—THI 
S GUN—MflN WINS" FOP F=-€0 TO 60 

BEEP .01/F* NEXT F 

3216 IF Is®10 THEN GO TO 360O 
3220 CLS • LET 3=INT <RND*19>+2* 

LET c~INT <RNDtl9>+2- GO TO 966 
2300 PPINT AT j,0; INK lj"kl";RT 
3-1.0;" " 

3305 LET rs’-rs+l 
3310 IF rs~10 THEN GO TO 3300 
3315 PRINT AT 0,2; INK 5;"THIS G 
UN-NAN WINS—>-' FOR F=-60 TO 60 
- BEEP .01,F’ NEXT F 
3320 CLS LET 3 -INT <PND*19>+2• 
LET c-INT < RNO*19 )+2 * GO TO 908 
3508 CLS ■ FOP F*8 TO 9* PRINT A 
T F,8; INK 1;"kl"• BEEP .5,6- NE 
XT F 

3510 FOR F-l TO Is* PRINT AT F,3 
8; INK 3;" 1 J"■ BEEP .5,0- NEXT F 


4059 RETURN 

4140 PLOT 16,179-< 3 * 8 >• DRAW 99, 
8 BEEP .02,-10’ DRAW OVER 1;-99 
,0 PPINT AT 3 -I,14;"S"• BEEP .8 
65,0 PRINT AT 3-1,14;" " 

4149 RETURN 

4150 PLOT 16,179-<3*9>> DRAW 110 
,0 BEEP .02,-10 DRAW OVER 1;-1 
18,0 PRINT AT 3-1,15; 1S1' ’ BEEP 
.085,0 PRINT AT a-1,15;" " 

4159 RETURN 

4260 PLOT 16,179-<3*8> DRAW 197 
■0- BEEP .02,-18’ DRAW OVER 1;-1 
97,0- PRINT AT 3-1,26; 131* BEEP 
.085,0 PRINT AT 3-1,26;" " 

4269 RETURN 

5850 PLOT 238,179-<c*B>- DRAW -1 
93,0- BEEP .02,-5' DRAW OVER 1;1 
93,0 PRINT AT c-1,5;'^’ • BEEP . 
805,5 PRINT AT c-1,5;" " 

5059 RETURN 

5140 PLOT 238,179-<ctSV DRAW -1 
21,0 BEEP .82,-5’ DRAW OVER 1;1 
21,0' PRINT AT c-1,14;"S"* BEEP 
.005,5- PRINT AT c-1,14;" " 

5149 RETURN 

5158 PLOT 23B,179-< c*9>* DRAW -1 
12,0- BEEP .02,-3 DRAW OVER 1,1 
12,0- PRINT AT c-1, 15; "S" • BEEP 
.005,5 PRINT AT c-1,15;" " 

5159 RETURN 

5260 PLOT 238,179-<c*8>’ DRAW -2 
3,0 BEEP .02,-5 DRAW OVER 1;23 
,6- PPINT AT c-1,26;"S"• BEEP .0 
*J5,5 PRINT AT c-1,26;" " 

5269 RETURN 
5999 STOP 

6U00 FOR v—40 TO 60 STEP 20 FO 
P 3=40 TO -60 STEP -20 - BEEP .01 
PEEP .01,v NEXT s- NEXT v 
PETURN 

-'900 PPINT "AGAIN'?" IF INKEY*<> 
•••' THEN PUN 
7001 GO TO 7o3 


2520 INK 6- PLOT 135,17l-<c*8> 
DRAW 56,8' BEEP .81,60- DRAW OVE 
R 1;-56,0• GO TO 320O 

260O INK 6’ PLOT 135,17!-<c*8> 
DRAW 26,0 BEEP .81,68 PRINT AT 
c,26;"S^• DRAW OVER l;-26,0 
2618 PRINT AT c,26;" "- GO TO 22 
25 

3080 IF ATTP < 3 -1,5>>-64 THEN GO 
TO 4059 

3010 IF ATTR <3 —1.14»=€4 THEN G 
0 TO 4148 

3020 IF ATTR < 3 -1,15 >>*64 THEN G 
0 TO 4150 

3O30 IF ATTR <3-1,26>>=64 THEN G 
0 TO 4260 

3085 INK 7’ PLOT 16,l79-< 3 * 8 >• D 
RAW 238-0 BEEP .81,60* DRAW OVE 
P 1;-238,0* PLOT OVER 1;254,179- 
< 3*8 > 

3098 IF 3 —c OR 3-1-c THEN GO SUB 
3208 

3099 RETURN 

8138 IF ATTP <C-1,26>>“64 THEN G 
0 TO 5260 

316,0 IF ATTP <c-l,15»-64 THEN G 
0 TO 5158 

3178 IF ATTR < c-1,14 >>=64 THEN C 
0 TO 5140 

3180 IF ATTP <c-! ,5»«64 THEN GO 
TO 5059 

3190 PLOT 238,179-< ctQj< DRAW -2 
35,8- BEEP .885,40- BEEP .005,50 
’ DRAW OVER 1;235,0- PLOT OVER 1 
;3,179-<r*S> 

3195 IF c-3 OR c-1 -3 THEN GO SUB 
3308 

3199 RETURN 

8208 PRINT AT c,30; INK 3;"iJ";A 


3520 INK 3 FOR F~2l TO 20*10-13 
- PPINT AT 18,F;" 3 ";AT ll,F;"b u - 
BEEP 1,F*2x3' NEXT F 
3530 INK 5- PRINT AT 15,2;"THE F 
RSTEST SHOT->" 

3599 GO TO 7e3 

3600 CLS • FOR F-O TO 0 PRINT A 
T F,30; INK 3; ";j" - BEEP .5,0* N 
EXT F 

3610 FOR F=1 TO rs* PRINT AT F,0 
; INK 1; "kl" • BEEP .5,0- NEXT F 
3620 INK 1 FOR F-l TO 10-rs* PR 
iHT AT 10. F; ^_3^’; AT li,F;"b M * BEE 
P 1,F*5 NEXT F 

3630 INK 5 PPINT AT 15,2;"<- 

THF FASTEST SHOT" 

3700 GO TO ~c3 

4050 PLOT 16,179—<3T0> DRAW 30. 
0 BEEP .02 -10 DRAW OVER I;-30 
8 PPINT AT 3i-l,5; "S" BEEP . G0 
5,0 PRINT AT 3-1 .5:” " 
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ABOUT OUR PROGRAMMABLE 
INTERFACE 

Surpassing the outstanding specification of 
our .Interface Module II which still offers 
the best software support at its price, a 
Joystick Interface that is compatible with 
ALL SOFTWARE through its unique hard¬ 
ware programmable design. 

The Interface plugs on to the rear connector 
of your ZX81 or ZX Spectrum. 

Quick clip-on connections, which are con¬ 
figured from a reference card supplied, allow 
you to define which of the forty keys are 
simulated by which action of the Joystick. 
A pack of ten Quick Reference Programming 
Cards makes setting for your favourite games 
even easier. These can be filled in to show at 
a glance the configuration required and 
stored in the cassette case of the particular 
game. When you change to a game using 
different keys the module is re-programmed 
in a few seconds. 

As with our Interface Module II the Pro¬ 
grammable Interface accepts all standard 
switch Joysticks that are Atari-compatible. 
Two sockets are available which are con¬ 
nected together for two player games which 
use the same keys for both players. 

The Interface resides in the keyboard 
address space and does not affect its opera¬ 
tion or interfere with any other add-ons. A 
rear extension edge connector will accom¬ 
modate expansion of your system. 

The unique AGF key simulation principle 
makes it extremely easy to incorporate 
Joystick action in your own programs. All 
eight directions and fire are read by simple 
BASIC. 

With every order comes a free demonstration 
program called 'Video Graffiti’ plus a full 
set of instructions. 



KEY FEATURES 

* Programmable design gives TOTAL soft¬ 
ware support. 

* Accepts Atari, Competition Pro, Wico, 
Starfighter, Quick Shot, Le Stick etc. 

* Rear extension connector for all other 
add-ons. 

* Free demo program and instructions. 


PACKAGE CONTENTS SUPPLIED 

• Programmable Interface Module as illus¬ 
trated, complete with clip-on program¬ 
ming leads. 

• Self adhesive programming chart detailing 
how to define which key is simulated by 
UP. DOWN, LEFT, RIGHT, and FIRE. 
This can be fixed on to the case of your 
computer or if preferred the protective 
backing can be left on. The chart is made 
of a very durable reverse printed plastic 
and is extremely easy to read. 

• One pack of ten Quick Reference Pro¬ 
gramming Cards for at-a-glance setting 
to your games requirements. The card 
allows you to mark the configuration in 
an easy to read fashion with space to 
record the software title and company 
name. 

• Video Graffiti demonstration program 
which is written totally in BASIC to illus¬ 
trate how all eight directions and fire 
can be read. This is also a useful high 
resolution drawing program. 

• 12 months guarantee and full written 
instructions. 



ATARI 

CONTROLLERS 
FOR USE WITH OUR INTERFACE 
Module or VIC 20, Commodore 64, 
Atari VCS, Atari 400, Atari 800 
If you require extra Joysticks for our 
original interface module mark order 
‘OLD’ Joysticks 

ONLY £7.54 inc VAT + P&P 


FROM: MR/MRS/MISS 


ADDRESS 


SEND C.W.O. (NO STAMP NEEDED) TO: A.G.F. HARDWARE, DEPT. SPR 


FREEPOST, BOGNOR REGIS. WEST SUSSEX, P022 9BR 


QTY 

ITEM 

ITEM PRICE 

TOTAL 


PROGRAMMABLE INTERFACE 

33.95 



JOYSTICK(S) 

7.54 



PACK(S) QUICK REFERENCE CARDS 

1.00 


ONE 

VIDEO GRAFFITI 

FREE 


ZX81 □ ZX SPECTRUM □ Please tick 

DEA LER ENQUIRIES WELCOME EXPOR T PRICES ON APPLICA T 

FINAL TOTAL 


ON 
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2 REH © UDEL SRBBAGH 

3 DIM A$C30.S,20} 

4 LET FCF = 1 

1© BORDER 1: PRPER i: INK 6: C 

LS 

15 POKE 23658,8 

2© PRINT RT 10,B; PLASH 1;"FIL 
E " 

25 PRINT RT 11,3 ;“BY UREL SRBB 
RGH" 

40 INPUT "SECRET CODE TO ENTER 
TO F XLES";B$ 

5© IF B$<> , 'PHP" THEN BEEP .3,- 
10: GO TO 4-© 

6© C LS 

7© BEEP .1,1© 

SO PRINT RT 0,10;"MENU" 

9© PRINT 

1©© PRINT “I TO OPEN P. NEW FILE 

• • 


105 PRINT 

11© PRINT "2 TO LOOK RT R CERTP 
IN FILE- 
115 PRINT 

12© PRINT "3 TO HAVE R LOOK RT 
ERCH FILE CON LV FILE CODE RND N 
AMEiAT THE SAME TINE” 

125 PRINT 

13© PRINT "4 SRUE FILES ON TAPE 

• • 


135 PRINT 

I4-© PRINT -5 L PR I NT A FILE ON T 
HE PRINTER" 

14-5 PRINT 

15© PRINT ”5 SEARCH THROGH ALL 
FIlcw ’ 

155 PRINT 

160 PRINT “? CHANGE INFORMATION 
FROM FILE" 

175 PRINT : PRINT "3 STOP" 

IS© INPUT "CHOICE PLEASE (2x83" 
C 

190 IF C=1 THEN GO TO 300 

200 IF C=2 THEN GO TO 5©0 

21© IF C =3 THEN GO TO 1000 

220 IF C=4- THEN GO TO 1100 

230 IF C =5 THEN GO TO 150© 

24-0 IF C=6 THEN GO TO 200© 

25© IF C-=7 THEN GO TO 250© 

260 IF C=S THEN GO TO 3000 

270 GO TO 130 

300 DRTfi "FILE CODE .. "NAME ** , " 
ADDRESS ” , "TOWN ” , "COUNTRY ** , "PC 
STCODE ", • TELEPHONE ","OTHER INF 
O " 

31© CLS : RESTORE 300 
315 IF FCF > 3© THEN BEEP -1,4-: P 
RINT ''."MO PLACE FOR DATA": GO 
TO 4-lGe 

317 LET AS iFCF, II =STR$ FCF 
320 PRINT AT 0, 8; "NEU FILE ENTP. 
V” 

330 PRINT * READ 6$: PRINT B$;F 
CF 

34.0 FOR X = 2 TO 3: READ B$ 

35© INPUT (EJ);A$ (FCF ^ X3 

360 IF LEN A$(FCF,X)>20 THEN GO 

TO 35© 

373 PRINT B $:PI(FCF,Xi 

388> BEEP .2,XiS 

390 PRINT 

400 NEXT X 

4.05 LET FCF=FCF + 1 

4.10 PRINT FLASH 1; "PRESS ANY KE 
Y TO GO TO MENU” 

42© IF INKEY $ ="" THEN GO TO 420 
43© GO TO 50 
500 CLS 


510 PRINT AT ©,7;"FILE DISPLAY" 

: PRINT 

S3© PRINT "HIT 1 IF YOU KNOW TH 
E FILE CODE” 

535 PRINT : PRINT "HIT 2 IF YOU 
KNOW NAME (NOT flDUISBLE)" 

536 PRINT : PRINT "HIT 3 IF YOU 
KNGU TEL (NOT ADUI5BLE)" 

537 PRINT : PRINT "HIT 4 TO MEN 
U" 

54© IF INKEY4 = ”" THEN GO TO 54© 
550 IF INKEYS= "i" THEN INPUT "F 
ILE CODE ”;F: LET U=l: GO TO 700 
560 IF INKEY $ = "2" THEN INPUT "N 
RME PLEASE ";F$: LET U=2: GO TO 
575 

570 IF INKEYS="3" THEN INPUT "T 
EL PLEASE ";F$: LET U=7: GO TO S 
75 

571 IF XNKEY$="4" THEN GO TO SO 

572 GO TO 54© 

575 FOR X=LEN F$+l TO 20: LET F 
$ = F $ + " **: NEXT X 
530 FOR X=1 TO FCF: IF A$CX,U)= 
F $ THEN LET F=X: GO TO 700 
590 NEXT X 
59S CLS 

60© PRINT "NAME J TEL NOT IN FI 
LE" 

61© GO TO 52© 

70© RESTORE 300: CLS 
710 READ B$: PRINT B$; F 
720 FOR X=2 TO S 
730 PRINT 

740 READ B$: PRINT INK 6.8$;: B 
EEP .02.X *2: PRIfsCT INK 7;fl$(F,XJ 
: BEEP .02iX *3 
750 NEXT X 
76© PRINT 
770 GO TO 41© 

100© CLS 

1QE5 PRINT FLASH 1; "NAME" , "FILEC- 
ODE" 

1010 FOR X=1 TO FCF 

102© PRINT fi$(X,2) ; " " ; A$ (X,1 i t 

TO 3) 

1030 NEXT X 
1040 GO TO 420 
1055 BEEP -03..X 
210© CLS 

111© PRINT AT 0,5;"SAVE FILE ON 
TAPE 

112© PRINT : PRINT 
213© PRINT "INSERT BLANK TAPE" 
124G PRINT "THEN PRESS ANY KEY" 
1150 IF INKEY$ = — THEN GO TO US 

1260 SAVE "FILE" LINE 10 
117© BEEP - 3. -1© 

2133 PRINT 

1190 PRINT "REWIND TAPE TO VERXP 

Y - 

120© PRINT "THEN PRESS ANY KEY" 
221© IF INKEY* = ”'• THEN GO TO 221 
Q 

122© VERIFY "FILE" 

1230 GO TO 41© 

150G CLS : PRINT AT G,4,"PRINTER 
DISPLAY" 

2520 PRINT : PRINT FLASH 1,"IF Y 
OU ARE NOT SURE OF FILE CODE THE 
N USE OPTION 3 CON MENU) TO FIND 
OUT" 

1540 PRINT : PRINT "PRESS P TO P 
RINT FILE ON PRINTER" 

1550 PRINT "PRESS M TO GO TO MEN 

u- 
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A VERY USEFUL routine for the 
16K Spectrum has been sent by 
Wael Sabbagh of Colchester. 
Spectrum File provides a method of 
storing the names and addresses of up to 
30 individuals. Only 20 characters can 
be handled on each line of input but 
that should be no disadvantage, except 
perhaps on the Other Information line. 

Since some of the information in the 
file may be confidential, the Files can be 
accessed only when the secret code has 
been entered. STOP and LIST com¬ 
mands would allow the Sinclair user to 
crack that deadlock quickly. The code 
as listed is PMP but can be altered in 
line 50. The routine is served by a very 
useful menu. 

As with all filing routines, the user is 
well-advised to avoid RUN commands. 
If the program is broken into, then GO 
TO 60 will return you safely to the 
menu. 

On a 48K machine, the routine will 
handle details on 150 individuals pro¬ 
vided the number 30 in lines 3, 315, 
1590 and 2520 is altered to 160. If the 
program is to be saved, option 4 of the 
menu should be used. 


u 


0 









ppf 




■ •• / 

. // 




B m 


f:>i. /_r_ ir\jf \ f-\ 




7 H - 


1560 IF INKEY$ < > "P" RND INKEY$0 
"M" THEN GO TO 1569 

157© IF INKEY$ = -M" THEN GO TO 4-1 
0 

156© INPUT "ENTER FILE COC-E F 
1590 IF F <1 OR F>3© THEN GO TO 1 
560 

1600 RESTORE 300: LPRINT "SRBSfiG 
H SOFTWARE FILE PROG" 

1610 LPRINT 

1690 FOR X = 1 TO S 

1630 READ K$: LPRINT K$;R$CF,XJ 
164.0 LPRINT 
1650 NEXT X 

1660 LPRINT '•_ __ 


2000 CLS 

2010 FOR X=1 TO FCF-1 
2020 RESTORE 300 
2030 FOR K = 1 TO S 
2040 READ B$ 

2050 PRINT B4, 

2060 PRINT : NEXT K 

2109 PRINT FLASH ±J"PRESS RNY KE 
V TO CON CM TO MENU)" 



2110 IF INKEY$ ="” THEN GO TO 211 

0 

2120 IF INKEY $ = ”M" THEN GO TO 60 

2130 CLS : NEXT X 

2140 GO TO 410 

2500 RESTORE 300: CLS 

2510 INPUT "UHRT FILE WOULD YOU 

LIKE TO CHRNGE INFO FROM "J F 

252© IF F<1 OR F > 30 THEN GO TO 2 

510 

2530 PRINT FLASH 1. "UHRT WOULD Y* 
OU LIKE TO CHRNGE " 

254-0 PRINT "INPUT 9 TO GO TO HEN 
U" 

2550 FOR C = 1 TO S 
£555 RERD B$ 

2560 PRINT FLASH i.C. FLASH 0,6$ 
; R$ CF,C) 

2570 NEXT C 

2560 INPUT "CHRNGE C9 TO MENLO"; 
D 

2590 IF D=9 THEN GO TO 60 

260© INPUT "THE NEW VERSION";R$f 

F .D) 

2610 C-LS : RESTORE 300: GO TO 25 
30 

3009 CLS : PRINT RT 10,4; FLASH 
1:"FILE CLOSED” 
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K nock the cans off the wail 

before granny arrives with her 
Demon Wacker Slipper. When 
you have cleared the wall of cans you 
have a chance to knock ofT the police¬ 
man’s helmet before more cans appear. 
Watch for that slipper. 

Jannis the Menace was written by 
George and Matthew Law of Sutton 
Coldfield, West Midlands for the 16K 
Spectrum. 


5 PRINT AT 10,7; INK 3; PRPER 
6 ; FLASH 1; BRIGHT l;"StoP the 
tape!I" 

10 GO TO 9000 : REN Graphics ari 
d Instructions 

15 REM Set uP variables 
20 LET sc—0■ LET time=500 
25 LET cans-8 
30 LEt cat-15 

39 LET st—0 1 LET stone-0 

40 REN set uP display 

41 LET c*-" e H = LET dS-" f " 

42 LET 9I-W- LET h>- "pqr" 
45 FOR b-3 TO 9 STEP 2 

50 PRINT RT b,8; INK 2; "ababab 
abababababababababababababbababa 


73 LET cop-29 

73 PRINT RT 3,0) INK 4;a* 

80 PRINT RT 20,cat; INK 0;c*;T 
RB cat; INK 0)d* 

90 LET cat-cat+<INKEY*-"7" AND 
cat< 29 >-<INKEY$-"6" AND cat >0 > 
99 IF st<>0 THEN GO TO 101 
100 IF INKEY*-"0" RND d»<>" 9 " 
THEN LET st-18' LET d*»" 9 "= L 
ET stone-cat 

110 IF d*-" _9_" RND st<>0 AND < 
st>10 OR st<4> THEN PRINT OVER 1 
j RT st,stone*!;"h" 

111 IF d*«" 9 " THEN LET st-st- 


115 IF dS=>" _9_ " AND < st>9 OR st 
<4) THEN PRINT RT st+1,stone*1 ;" 


120 IF d*-" 9 " RND st=0 THEN P 
RINT RT 0,0;'’ 

"• LET dS-" f " 

130 PRINT RT 1,0)"Score-";sc 

140 LET time-time-1 

130 PRINT RT 1,20)"Time-";time; 

II II 

136 IF time-0 THEN BEEP .1,10= 
FOR n-27 TO cat STEP -1< PRINT fl 
T 20,n;9*;" ";RT 21,n;h*;" -• BE 
EP .1,50* BEEP .2,-30- BEEP .3,0 
' NEXT n< PRINT RT 21,0)"Ow!I!!! 
M!!I I I I!"• GO TO 1000 
138 IF cans-0 THEN GO TO 190 
160 IF st-4 RND a»< stone+34 >-"d 
" THEN LET sc-sc+10' LET cans-ca 
ns-1 1 LET a$< Stone+34 )=" "< BEEP 
.003,40= BEEP .003,39 
170 GO TO 80 

190 IF coP>0 THEN PRINT RT 4,IN 
T COP)z*)RT 3,INT coP) y* 

200 LET coP-coP-.3 

210 IF INT coP-0 THEN LET sc-sc 


-40' LET cans-8• GO TO 70 
220 IF st-4 RND < stone- INT coP 
OR stone-INT coP+l > THEN LET sc- 
sc+100 ■ LET time-time+138 1 BEEP 
.1,30' BEEP .7,40= BEEP .3,50' L 
ET cans-8' CLS « PAUSE 5- GO TO 
45 

300 GO TO 170 

1000 REM To see if you want anot 
her 9o 

1010 INPUT "Do you want another 
9o<y/n>?";R* 

1013 IF R*-"n" OR RS-"N" THEN ST 
OP 

1020 IF RS-"y“ OR R*>"Y" THEN CL 
S = INPUT "Do you want instructi 
ons?")sf 

1030 IF s**"y" OP s*="Y" THEN GO 
TO 9900 

1040 IF sS=”n" OR sS^"N" THEN GO 
TO 15 

1050 CLS GO TO 1620 
9080 FOR n-144 TO 161 


9010 FOP f-0 TO 7 
9020 READ b POKE USR CHPS n+f,b 
> NEXT f- NEXT n 
9030 DRTR -1,-1,128,128,128,128, 
128,-1,-1,-1,1,1,1.1,1,-1 
9040 DRTR -1,-1,-1,195,195,195,1 
95,195,195,195,195,195,195,-1,-1 
,-l 

9050 DRTR 0,195,195,246,246,189, 
189,153,153,153,133,129,193,102, 
60,0,129,195,102,60,0,0,0,0 
9060 DRTR 0,0,24,60,60,24,0,0 
9070 DRTR 1,1,3,7, 15,15,15,27, 19 
,31,35,35,99,67,-1,-1,128,128,19 
2,224,240,240,240,248,248,232,23 
2,252,234,254,-1,-1 
9080 DRTR 0,0,0,0,0,0,13,63,0,0, 
0,15,20,124,-1,-1,0,0,0,0,0,12.6 
2,254,127,-1,-1,63,13,0,0,0,-1,- 
1,-1,-1,232,0,0,8,-1,-1,-1,31,31 
, 0 , 0,0 

9900 REM Instructions 

9901 PAUSE 130* CLS ■ PRINT FLRS 
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H MAT 0, 7) "Jannis the Menace" 
9910 PRINT " <no relation to 

Dennis ) The object of. this 9 
ame is to knock the cans off t 
he the wall before your Granny C 
owes with her elePhant hide De 
mon Wacker SliPPer Ml 

The controls are : - 

6— Left 

7— Ri9ht 
0—Fire" 

9920 PRINT AT 21,0;"Press any ke 
y to continue" ! PAUSE O' BEEP 1, 
10' BEEP .5,-30' CLS 

9921 PRINT "You can only fire a 
stone when the cataPult looks l 
ike this e 

f_. When you have cleare 
d a sheet of cans you will hav 
e a chance to 9et some more tim 
e before Qranny comes.You do 
this by knockin9 the Policem 
ans hat off before he reaches th 
e other side of the wall if he r 
eaches the other side you will 
lose forty Pointsl! 

If there are no can 
s left and the Police man's hat 
does not appear then there is 
•an invisible can somewh 

ere on the wall you have to fin 
d it,you maysee the can disaPPea 
rin9. Good luck 

M 

9922 PRINT AT 21.0;"Press any ke 
y to continue"* PAUSE 0 BEEP 1, 
10 BEEP .5,-30 CLS 

9999 GO TO 15 


does not 
an 


jXJ/aTJ 


M ove yourself, the plus 

sign, up and down the screen 
with the usual cursor keys un¬ 
til you are in line with the approaching 
ape. When you are both in the same 
position press “F” to catch the ape. 
After catching 10 apes your time will be 
displayed. 

The personal best time of Martin 
Booth of Halifax, Yorkshire who wrote 
the program for the 16K ZX-81, is 87. 


2 LET B=0 

3 LET 2=0 

4 LET D=15 

5 LET E-1N7 <RND*10> 

6 LET F=INT <RND*5>*-12 

7 FOR A=0 TO 21 
3 LET C-14 

10 PRINT AT A,0;"<isP 9 j 28*is 
P 9? ISP >" 

15 NEXT A 

16 PRINT AT 1,5;"SCORE=";Z 


19 PRINT AT 1,20;"TIME*";B 
d.0 PRINT AT 10,2; "<9f '26*9s-9f 

>" 

21 PRINT AT 9,19;"<9a-8*sP'9a> 

If 

22 PRINT RT 8,11; 9a ,»HUNTER< 9 

a >" 

23 PRINT AT 7,12;"<9a -4*sP■9a> 

24 PRINT AT 6,13; "< 9a 1 2-tsP • 9a > 

•f 

25 PRINT AT 5,14;"<2*9 *>" 

26 PRINT AT 4,14;"<98•95 >" 

30 PRINT AT D,C;"+";AT D,C;"<i 
sP>" 

33 LET B=B+1 

35 PRINT AT F,27;"<3*xftp)" 

40 LET D»l>+<1NKEY*="6">-<INKEY 
*="7"> 

44 IF D*21 THEN LET D=20 

45 IF D=1 1 THEN LET D=12 

50 PRINT AT F,E; M <ISP>9y'93-is 
P >" 

55 LET E=E+1 

60 IF F«D AND E“C AND INKEY*-" 
F" THEN GOSUB 200 

65 IF E=27 THEN LET E-3 
108 GOTO 30 
20O LET 2~Z+l 

205 IF 2=10 THEN PRINT AT 12,8; 
"your time was ";B 

206 IF 2=10 THEN LET D-D-l 

207 PRINT AT D,C;"++";AT D+l.C; 
"<2*1£P >" 

288 IF D=5 THEN GOTO 220 
210 IF 2=L8 THEN GOTO 205 
215 GOTO 4 

220 PRINT RT D,C,"<2*i+ V;AT D, 
C i"** u 

230 GOTO 220 
300 SAVE "j" 

310 RUN 
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A 



o 0 * C1I 

7 / # 0 o# 

& 0 „ /#' 0 /»' n 'to 


> 0 /#/ 


3 * 0 /* * ^ 
/, * 0 Hi, *' 


’"v/P /a n 



TR££ 

\ 


T REE EATERS for the 16K Spec¬ 
trum was written by A Beard- 
more of Stoke-on-Trent, Staffs. 
Stop the Martians eating our forests for 
the vital resources they lack on their 


1 BORDER 0= PAPER 0 : INK 6= C 
LB 

2 PRINT "YUlK 9f:« HU'il KILL TH 
E MARTIAN TRbL EATERS "; INK 
2; "9P"; INK b;" AT ALL COSTS" : P 
R1NT "OUT DON *T KNOCK DOWN THE T 
REES" : PRINT * PRINT "0=UP. K=DO 
UN. S=RICHT. A«LbrT. "* PRINT * 
PRINT "BUT CAREFUL YOU HAVE NO b 
RAKE " 

3 PRINT AT 21,0;"PRESS ANY KE 
Y TO START GAME" 

10 CO SUB 0000• PAUSE 0 

16 FOR 3“0 TO 21 ? INK 2 

17 PRINT AT 3.,0;" 

" * NEXT 3. 

20 PRINT AT 1,1; INK 6; ‘V 30*93. 
) ";AT 21,I;"CUOfcSb>" 

21 INK 6 

25 FOR 3=2 TO 20 = PRINT AT 3.,0 
; "< 9c ; AT a,3l; "<9cO" : NEXT 3. 

29 LET 3=0 

SO PRINT AT INT 'RND*iy>+2,INT 
CRND*38>+1; INK 4;"<9e>" • LET 3. 


=3 + 1 = IF 3X80 THEN GO TO 30 
40 PRINT AT 9j 14; "< 93. >"; AT 9,1 
6; *•< 93. >"; AT 12, 14; "<3*9b>" 

5U FOR 3 = 10 TO 11* PRINT AT 3., 
13; "<9c>";AT 3., 17; "< 9ci >" : NEXT 3 . 
• PRINT AT 8,14; INK 2;" 

55 PRINT AT 0,1;"SCORE : =0 
TREES KILLED : =0 " 

60 LET x=0 

65 LET sc=0 *- LET tr=U 
70 LET 3.$="<99>" 

80 LET OP =0= LET 3 = 11= LET s=l 
5 

85 LET 1 = 1 NT <. RND* 19 >+2 = LET u 
= 1NT < RND*30>+l 

86 PRINT AT q,w; INK INI RND* 
2 >+l; "<9P >" 

100 PRINT AT 3., s; 3.$ 

120 IF INKEY$="3." THEN LET x=l 
ISO IF INKEY*="s" THEN LET x=2 
140 IF INKEY$="o" THEN LET x=3 
150 IF INKEY$="k" THEN LET x=4 
155 PRINT AT 3.,s; INK 2;" " 

178 IF x=i THEN LET 3.$="<. 9h >" • 
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LET a** ,, <9i> M : 
LET aS*"<9f 
LET a$^"<99) ,,: 


c 


U 


< 3. 


LET tr=fcr+l 


LET s=s-l 

171 IT x-2 THEN 
LET s-s+1 

172 IF x=3 THEN 
LET a=a-l 

173 IF x=4 THEN 
LET a=a+l 

175 IF ATTR < a. s !<=6 THEN GO 
B 410 s LET oP-l 

176 IF a=q AND s=w THEN BEEP . 
05.40 s LET sc=sc+10 s LET oP = l s C 
0 GOB 500 s GO TO 85 

177 IF oP-0 THEN IF SCREENS 
.s )< >" " THEN GO SUB 400 

178 LET oP-O 

180 IF sc>500 THEN GO TO 3700 
200 PRINT AT a.s;a$ 

210 IF tr >15 THEN GO TO 3000 
250 LET oP-0 
300 GO TO 100 

405 BEEP .03.-20 
GO SUB 5U0 

406 RETURN 

410 IF x—1 THEN 

411 IF x-2 THEN 

412 IF x=3 THEN 

413 IF x-4 THEN 
420 PRINT AT a.s;a* s RETURN 
500 PRINT AT 0.8;sc;AT 0.28;tr 
510 RETURN 

800U FOR a-0 TO 7 s READ s s POKE 
USR "a"+a.s s NEXT a s DATA 0.0.0. 
0,24+36.128+64+3.255.255 
8010 FOR a-0 TO 7 s READ s s POKE 
USR "b"+a.s : NEXT a* DATA 255.25 
5.128+64+3.24+36.0.0.0.0 
8020 FOR 3=0 TO 7 s READ s s POKE 
USR M c"+a.s : NEXT a s DATA 7.7.11 
.11.11.11.7.7 
8030 FUR 3.-0 TO 7 
USR "d"+a.s : NEXT 
+32.128+64+32.128+64+16.128+64+1 
6.128+64+16.128+64+16.128+64+32. 
128+64+32 

8O40 FOR a-0 TO 7 s READ s s POKE 
USR "e"+a.s 5 NEXT a s DATA 24.24+ 
36+2.24+36+66.255-123.24+36.24.2 
4.24 


LET 

LET 

LET 

LET 


s-s +1 
s=s-i 
3=3 + 1 
3=3-1 


READ s : POKE 
3. s DATA 128+64 


8056 FOR a-0 TO 7 s READ s s POKE 
USR "f'"+a.s : NEXT a s DATA 24+36. 
24.24+36.36.24+36.24+36.24+36+66 
.24+36 

8060 FOR a-0 TO 7 s READ s s POKE 
USR "9"+a.s s NEXT a s DATA 24+36. 
24+36+66.24+36.24+36.36.24+36.24 
.24+36 

8070 FOR a-0 TO 7 s READ s s POKE 
USR "h"+a. s '■ NEXT a s DATA 0.2.25 
5-64.255-16.255-16.255-64.2.0 
8080 FOR a-0 TO 7 s READ s s POKE 
USR "i"+a.s s NEXT a s DATA 0.64.2 
55-2.255-8.255-8.255-2.64.0 
8O90 FUR a-0 TO 7 s READ s s POKE 
USR "P"+a.s : NEXT a s DATA 24.24+ 
36+66.24+36+66.255-36.255.255-12 
9.36.36 


8500 RETURN 

9000 CL3 s PRINT "SCORE ";sc; s P 
PINT • PRINT "YOU KNOCKED DOWN T 
00 MANY TREES" s PRINT s PRINT "S 
U YOU WERE THROWN OUT"= PRINT s 
PRINT s PRINT INK 7;"RATING" 

9005 PRINT 

9006 FLASH 1 

9007 BEEP -01.40 s BEEP -1.20 s B 
EEP -02.40 s BEEP -1.15 s BEEP .03 
.40* BEEP -1.10 s BEEP -1.20 s BEE 
P -1.40 

3010 IF sc>500 THEN PRINT "FANT 
ASTIC" : GO TO 9100 

3011 IF sc>460 THEN PRINT "VERY 
GOOD" s GO TO 910Q 

9012 IF sc>300 THEN PRINT "GOOD 


" s GO TO 9100 

3013 IF sc>250 THEN PRINT "NOT 
BAD" : GO TO 3130 

3014 IF sc>200 THEN PRINT "BAD" 


s GO TO 3100 

9015 IF sc>150 THEN PRINT "VERY 
BAD" s GO TO 3100 

9016 IF sc>100 THEN PRINT "OLD 
GRANNY" : GO TO 9100 

9017 IF sc>—0 THEN PRINT "FORGE 
T IT" s GO TO 3100 

9100 GO TO 9500 

9500 FLASH 0 s PRINT AT 21.0;"ANO 
THER GUCY/N >" 

9600 IF INKEY®-"" THEN GO TO 95 
00 

9610 IF INKEY$="y" THEN RESTORE 
s GO TO 1 

9620 IF lNKEY$="n" THEN GO TO 9 


999 

9630 GO TO 9500 

9700 CLS s BEEP -05.40 s BEEP .05 
.30 s BEEP -05.50 s BEEP -1.30 s BE 
EP -1.40 s BEEP -1.20 s PRINT "YOU 
HAVE KILLED ALL THE MAR 

TIAN TREE EATERS..WELL DONE.." s 
BEEP -01.30 s BEEP -01.30 s BEEP . 
01.36 s GO TO 95U0 
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U SE THE CURSOR keys to 
climb the ladders, slide down 
the mine shafts and avoid the 
monsters, the escaped pit trucks, the 
rotting planks, and the mysterious mov¬ 
ing wall. Collect the gold and the picks 
and then proceed to the bottom right- 
hand corner to move to the next level. 

To enter, type-in the first program, 
RUN it, then type CLEAR. Type 
‘SAVE’ “Builder” LINE 1’, VER¬ 
IFY it and then type NEW. Enter the 
second program, save it with SAVE 
“Builder” line 9999 and VERIFY it. 
Builder can then be LOADed as one 


program. - 

Written for the 16K Spectrum by Ian 
McNair of Kingston-upon-Thames, 
Surrey. 


l BORDER 1' PRPER 1’ INK 7* C 
LEAK PRINT AT 10,9; FLASH 1;"P 
LEASE WAIT" 

10 DATA "AMS7/187-0-238-238- 
0,119-119 

15 DATA "8"-56-60-25-126-1*2-6 
Q-36-36 

20 DATA "C”-20-164-170,116-88- 
92-124-56 

25 DATA "E"-0-112-20-48-120,12 
4-60-24 

30 DATA "F",0-255-171-213-255- 
0 - 0-0 

35 DATA "G"-0-0-0-255,255-255- 
126-60 

4U DATA "H"-66-126-66-66-66-12 
6 - 66-66 

45 DATA "I"-76-88,120-120-88,7 
6-64-64 

50 DATA "L"-l26-62-14-6,6-14,6 
2-126 

55 DATA "U",30-6-2-0-0-2-6-30 
100 FOR F-l TO 1U= RESTORE 5+5* 
F READ FS- FOR N=0 TO 7 READ A 
■ POKE USR FS+N-A : NEXT N> NEXT 
F 

110 BORDER 0 PAPER 0= INK 7- C 
LEAR 

120 LOAD "" 

9998 REM FOR MAIN PROGRAM TYPE . 

CLEAR • SAVE "BUILDER" LINE 99 
99 

9399 CLEAR • SAVE "BUILDER" LINE 
1 
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1 PAPER O' BORDER 0* INK O' C 
LS • DIM zC6)‘ DIM 7.Sc6,10>‘ FOR 
f-1 TO 6- LET z<?-f>=100+10G*f’ 
LET z*<f^"SPECTRUM"’ NEXT f 
10 DIM oC 2 ) 1 DIM PC2>* LET oCl 
>■13' LET PCI )=5 ! LET cK2>-8- LE 
T PC 2)=27' CLS • LET she-1* LET 
^-=0 • FOR m-3 TO 1 STEP -1 CLS * 
OVER 0- PRINT AT 5,5;" MEN ' "; m 
;" ";AT 6,5;" SCORE" "; 

AT 7/5; " SHEETS’''/she;'* H ;AT 1 
0/4;" PRESS ANY KEY TO PLAY " 
20 IF INKEY*<>"" THEN 00 TO 2 

0 

30 IF INKEY*= M " THEN 00 10 30 

100 BORDER 0’ INK ?- OVER 0- CL 
S - PRINT *+\;TAB 9;"B* Ian McN 
air''- BORDER 1' RESTORE 9990’ RE 
AD a- FOR f=l TO a’ READ b,c,9’ 
PRINT AT b/c;>< FOR h=l TO 9’ PR 
INT INK 2NEXT h’ NEXT f 

101 INK 6- RESTORE 9992- READ a 


. FOR f-1 TO a' READ b,c,9- FOR 
h-1 TO 9’ PRINT AT b,c;'^i"’ LET 
b-b+1’ NEXT h' NEXT f 

102 INK 5 RESTORE 9994' READ a 
. FOR f-1 TO a- READ b/C’ PRINT 
AT b/c; "ej< NEXT f 

103 INK 2- RESTORE 9996- READ a 
■ FOR f-1 TO a 1 READ b,c« PRINT 
AT b/c; « NEXT f 

104 INK 4- RESTORE 9996’ READ a 
- FOR f-1 TO a- READ b/C* PRINT 
AT b, c;" 1" NEXT f 

109 FOR o-l TO 2' PRINT AT o<o> 
, PC o >; OVER 1; INK 8;"c"• NEXT o 


». FOR f»3 TO 16’ PRINT AT f,1;”! 

NEXT f- FOR f-8 TO 17’ PRINT 
AT f,26;“I"' NEXT f 
110 INK 2’ PLOT 0/0- DRAW 255,6 
• DRAW 0/175’ DRAW -255/0 DRAW 
0,-175’ LET bon-0 • LET sta-4’ LE 
T axe-0• LET x*l • LET dr=0- LET 
*-29' INK 5’ PRINT AT x,v;"_b_";AT 
21/14; INK 4;"MEN 1 ";m;" SCORE'" 

/ S 

199 FOR f-19 TO 21' PRINT AT f/ 
30; INK 6; "±£ - NEXT f 



200 FOR v—40 TO 0 STEP -2’ PR1N 
T AT 0/2; OVER 0 ;"TIMEINT v;" 

"• FOR f-14 TO 26’ PRINT AT 19/ 
f; OVER 1; BRIGHT 1; INK 6;"9";A 
T lS/-l2+f;"9: 

201 OVER 1= GO SUB 300’ PRINT A 
T 6/23;"BONUS’";bon;AT 7/23;"PIC 
KS’";axe : IF INKEY*-"0“ THEN IF 

ATTR < x, * >=5 THEN LET bon-bon-*- 
10’ PRINT OVER 1;AT x,*; INK 6; 

202 IF INKEY*="6" THEN IF ATTR 
< x,* >=4 THEN LET axe-axe+1• PR 

INT OVER 1; INK 6;AT 
205 IF x—19 AND *=f OR x-16 AND 

* —12+f THEN GO TO 9690 

252 GO SUB 9500 PRINT AT 16/-1 
2+f; OVER 1; INK 6;"9_";AT i9,f;*' 
9“ 

260 NEXT f LET v-v-2 PRINT AT 
0,2; OVER 0;"TIME•";INT v;" - - 
FOR f-28 TO 14 STEP -1’ PRINT AT 
19,f; OVER l; INK 7; BRIGHT 1;" 
iLl'; AT 16,-l2+f;"_91' 

265 IF x=l9 AND *=f OR x-16 AND 

* — 12+f THEN GO TO 9690 

289 OVER 1- GO SUB 300 PRINT A 
T 6,23;"BONUS “;bon;AT 7,23;"PIC 
KS’";axe IF INKEY*»"0" AND ATTR 

Cx,*)«5 THEN LET bon-bon+10 1 P 
RINT OVER 1;AT x,*; INK 7;"e_" 

290 IF INKEYS--0" AND ATTR <x,* 
)—4 THEN LET axe-axe+1 PRINT 
OVER 1; AT x,*; INK 7; "_i_ a 

299 PRINT AT 19,f; OVER 1; INK 
6;'19";AT 16,-12+f ;KU SUB 95 
00 NEXT f- NEXT V’ GO TO 9690 

300 PRINT AT X,*; BRIGHT 8; PAP¬ 
ER 8; INK 8; 'lb;' = LET x=x+< 1 AND 
ATTR C x+i,*)=7)= IF INKEY*="" TH 
EN GO TO 310 

301 LET x«x+CINKEY*="6" RND ATT 
R Cx+1,*)«6>-CINKEY*="7- AND ATT 
R < x-1,*)=6>• LET *=*+CINKEYS-"6 
" AND ATTR C x, v + 1 >< >2 >-< INKEYS= " 
5" AND ATTR Cx,*-lX>2> 

310 IF ATTR <x,*><4 THEN GO TO 
9690 

311 IF < x=15 AND * = 13) OR Cx=l5 
AND *=18> THEN LET x=x+l 

312 PRINT OVER 1;AT x,*; INK 8 
; PAPER 8; BRIGHT 8; "b” * OVER 6’ 

IF INKEY*="8" THEN Tif x=l9 THE 
N IF *=29 THEN GO TO 9360 

313 IF x=19 AND *=23 AND axe>0 
THEN IF INKEYS='-0" THEN LET ax 
e=axe-l’ GO SUB 9750 

320 GO SUB 5O0’ RETURN 

500 FOR o=l TO 2’ LET di=RND■ P 
RINT AT oCo),PCo>; OVER 1; INK 8 
> BRIGHT 0;"c_"’ LET oCo>-oCo)+Cd 
i >.7 AND ATTR C o< o )+l, PC o > >=6 >-C 
di<.45 AND ATTR CoCo)-l,PCo>>»6> 

501 LET PC o >=P< o )+< di>.65 RND * 
>PCo) AND ATTR (o(o)/P(o)+lX>2) 
-Cdi<-.5 AND PCo)>* AND ATTR Cc* 
o),PCo)-l )<>2)’ IF ATTR (o(o)+l, 
PC o ) )=7 THEN LET oCo>=o<o>+l 

550 PRINT AT o<o>/PCo>; OVER 1, 
INK 8; "cj ’ IF oCo)=x AND *=PCo) 
THEN GO TO 9690 
570 NEXT o RETURN 
9500 IF PND>.5 THEN RETURN 
9505 OVER 0- LET rd=INT CRND*2>+ 
1= IF rd=2 THEN PRINT AT 9,25; 
INK 3; BRIGHT l;^f-;AT 11,25;^f“ 
; AT 8, 7; "_f"; AT 10,25; INK 7; BRI 
GHT’0;" " ; AT 15,13;" "; AT 14, 13; 

INK 3; BRIGHT 1 >*:£"; AT l6,28;':f 
"; AT 6,7, "X."; AT 6/5; BRIGHT 0; I 
NK 7;" H ;RT 7,15;" ";RT 8,10;" " 
/AT 20,7;" ";AT 20,ll; INK 2;"a" 
9510 IF ra-1 THEN PRINT AT 9,25 
; INK 7;“ ";AT 11,25;" ";AT 8,7; 
" BRIGHT 1; INK 3;AT 10,25;"f. 
";AT 15,13;"f"; BRIGHT 0; INK 7; 
AT 14,13;" ,r 7^T 16,28;" "; AT 6,7 
;" -i INK 3; BRIGHT 1;AT 6,5;'jf" 

;AT 7,15;'If ";AT 8,10;“f"; INK 7; 
8RIGHT 0;AT 20,11;" ";AT 20,7; 


INK 2;"a" 

9530 OVER 1• RETURN 

9600 CLS ’ FOR f-1 TO 6- PRINT A 
T 0+f*2,2;f; ". . " ; zC f ); ". B*.. "; 
<f)‘ NEXT f’ FOR f-1 TO 6’ IF s< 
r<f> THEN NEXT F 

9601 IF F>6 THEN LET F-6 

9602 IF S>2C F) THEN CO TO 9b40 

9603 NEXT F 

9604 FOR f=0 TO 400’ NEXT f GO 
TO 9790 

9649 LET FF-F 

9641 IF S-ZcFF) THEN GO TO 9604 

9650 PRINT AT FF*2,4; OVER 1; FL 

ASH 1;" 1NPU 

T -NAME-"; z$C FF)? IF LEN r*C 

FF )>10 THEN GO TO 9650 

9651 BEEP .5,0’ LET z<FF>=s’ GO 
TO 9604 

9696 PRINT AT x,*; FLASH 1; PAPE 
R 2; INK 6;"b"= FOR f=0 TO lOO 
BEEP . 05,50-f ’» NEXT f’ BEEP .65, 
-50 ’ NEXT r> 

9780 OVER 0 PRINT AT 15,9; FLAG 
H 1; "GAME OVER"*' FOR f™6 TO 40 
9700 OVER 0’ PRINT AT 15,9; FLAG 
H 1;"GAME OVER"- FOR f=0 TO 40 
0’ NEXT f’ PRINT AT 17/6;" PRESS 
’- ";AT 19,6;" P...PLAY. ";AT 2 
0,6;" A...ABONDON. ";AT 21,6;" S 
...SCORE TABLE"' PAUSE O’ PAUSE 
0* IF INKEY*«"s" OR INKEY*-"S" T 
HEN GO TO 9600 

9761 PAUSE 0’ LET a*-INKEY3i’ IF 
aS="P" OR 3*="?" THEN GO TO 10 

9702 IF a*="a" OR a*-"A" THEN R 
AND0MI2E USR 0 

9703 IF a*="s" OR a*="S" THEN G 
0 TO 9600 

9710 GO TO 9761 

9750 IF sta-4 THEN PRINT AT 19, 
29;"1" 

9753 IF sta=3 THEN PRINT AT 19, 
29; "jy; 

9754 IF sta=2 THEN PRINT AT 19, 
29;"-" 

9755 IF sta=l THEN PRINT AT 19, 
29;" " 

9756 LET sfa-sta-l 
9800 OVER 0 
T AT f,6;" 

f> OVER 1> FOR f—7 TO 0 STEP -. 
4. BORDER f’ BEEP .I5,f PRINT A 
T 10,7;" WELL DONE ";AT 13,7; 

" BONUS-";bon> NEXT f' LET s=s+ 
bon*2’ OVER 0 PRINT AT 7,8; FLA 


RETURN 
FOR f=6 TO 15 PRIN 
"= NEXT 


SH 1," SCORE 


FOR f—50 TO 


58' BEEP .05,f 1 NEXT f» LET she- 
she +1 

9810 DATA 1,0,0,1,0,1 RESTORE 9 
815' FOR f-1 TO 3’ BEEP .2,1' PR 
INT OVER 1;AT x,*; INK 8;'^"' R 
EAD n,m LET *-*+n> LET x-x+M' P 
RINT OVER l; INK 8;AT x,*;"^ • 
BEEP .3,f’ NEXT f 
9820 GO TO 20 

9990 DATA 20,7,16,5,11,4,8,10,5, 
5,13,0,13,12,27,5,11,14,12,13,13 
,7,15,19,3,16,22,9,19,0,13,18,13 
,14,17,0,19,15,0,17,20,14/50/4,2 
2,10,9,20,12,4,0,18,2,26,6,6,1,1 
3,8,1,13 

9991 REM 

9992 DATA 19,19,23,2,16,16,4,18. 
3,3,18,13,3,14,19,4,16,8,3,15,6, 
2,13,29,3,11,27,5,12,22,4,9,8,4, 
10,12,3,5,14,6,3,6,3,7,2,6,3,21, 
6,3.18,4,8,30,4,1,25,3 

9993 REM 

9994 DATA 12,3,28,20,2,20,6,20,9 
,20,12/7,3/9,6,10,10,8,28,10,21, 
16,23,14,7 

9995 REM 

9996 DATA 4,3/23,16,18,19,29.19, 
31 

9997 REM 

‘9998 DATA 4,3,2,7,6,12,19,13,28 
9993 BORDER 0 PAPER 0 INK 5’ C 
LS FOR f=0 TO 40 BEEP .009,f 
BEEP .0O9,f+5• NEXT f- RUN 
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QRWIN SOFTWARE- 2X81 & SPECTRUM 

IV Villi UUI I VWfTIlLi. super SOFTWARE AT LOW PRICES 


"Michael Orwin has built a reputation 
for value-for-money software and his Cas¬ 
sette 4 offers quantity as well as quality." 

Sinclair User, October '82 


NEW! FOR 16K SPECTRUM 

(will also run on 48K Spectrum) 

CASSETTE A Ten programs for £6 


"If each game was on a separate tape 
and selling for £5 each I would still rec¬ 
ommend them. But all on one for £5 ... ! 
This sort of value for money just has not 
been seen before on any personal com¬ 
puter." 

"Without sounding pushy I would like to 
conclude this review by saying if you 
have a ZX-81 and like games, then you 
should buy Michael Orwin's cassette 4." 

2 extracts from ZX Computing, OctVNov 

'82 

"Eight games, including an excellent 
version of the Scramble arcade game . . . 
Easy to operate, graphically impressive 
and good value for money." 

The Times, Saturday 11 th December 1982 
(about Cassette 4) 


GHOST GOBBLER 

Eat the ghosts before 
the ghosts eat you. 
Eat a star and you 
can chase the ghosts 
for a while. 


ALIENKILL Control lasers, rockets and a 
force-f ield to stop the aliens from landing. 
MOUSETRAP Trap the mouse in the corner 
but not anywhere else. 

REVERSI A game of skill with simple rules 
but sophisticated tactics. Play against the 
computer. 

LASER DEFENCE Control the laser sight to 
shoot down the alien ships. Machine code 
sound routines. 


TANK BATTLE For 2 players simultaneous¬ 
ly or play against the computer. Each play¬ 
er has 2 rotate controls and move and fire 
controls. The tanks fire steerable missiles. 
PHOEBUS A puzzle. 

BLACKSPOT Gobble the stars and avoid 
running into black spots created by cross¬ 
ing your own path. 

CUBE Manipulate a cube any size from 
2x2x2 to 7x7x7. 

MINEFIELD Collect the crowns while 
avoiding the mines and the electrified 
fence. 

plus an extra . . . 

GRAPHIC DEMO Did you know your Spec¬ 
trum could do all thisl? 


CASSETTE 1. eleven pro¬ 
grams (including 7 in machine 
code) 

for IK ZX81 £3.80 


CASSETTE 2, ten games in 
Basic 

for 16K ZX81 £5 


CASSETTE 3. eight programs 
(including 1 in machine code) 

for 16K ZX81 £5 



CASSETTE 4 

ZX-SCRAMBLE (machine code) with 3 stages. 

Bomb and shoot your way through the fortified caves. 


8 games for 16k ZX81 £6 

GUNFIGHT 
(machine code) 


INVADERS 
(machine code) 



r*t ®UNORLOXC*S RRE GROWING OND 
n CM THEY PERCH THE SKY THEY 
POOUCE DEADLY SPOPES. YOU 
OfiTPOC R ELYEB AND VOUP MISSIOr 
■ TQ DESTROY THE FUNCmLOIDS &' 
POPPING RNTI-FUNGUS BO»B c ON 
HEM. 



FUNGALO 


GALAXY INVADERS (machine code) 

Fleets of swooping and diving alien craft to fight off. 

SNAKEBITE (machine code) 

Eat the snake before it eats you. Variable speed, (very fast at top speed). 

LIFE (machine code) 

A ZX81 version of the well known game. 

3D TIC-TAC-TOE (Basic) 

Played on a 4x 4 x4 board, this is a game for the brain. It is very hard to 
beat the computer at it. 


7 of the 8 games are in machine code, because this is much faster than Basic. (Some of these games were previously available form 

J. Steadman). 


BYTE-MAN (machine code) 
(previously available from Mindseye) 



SPACE RESCUE (machine code) 
(previously available from Mindseye) 



CASSETTES 8 games for 16k ZX81 
BREAKOUT (machine code) 


£6 



BLITZ (machine code) 



PLANETOIDS (machine code) 

Rotate, move, fire and hyperspace controls. 
Wide range of choice of speed and difficulty. 

DODGEMS (machine code) 

Dodge the computer's car while eating the 
dots. 

DRAUGHTS (machine code) 

Three skill levels. 

MERCHANT (Basic) 

Make your fortune on trading voyages in the 
Mediterranean and beyond. 




7 of the 8 games are in machine code because it is much faster than Basic. 


"New polish on old 
favourites . . . the 
quality of the soft¬ 
ware and the 
smooth action dis¬ 
plays created on 
the screen make 
the programs 
worthwhile for any¬ 
one who has a ZX- 
81 and plays 
games using it. 

Most of the 
games include well- 
presented instruc¬ 
tions which make 
them easier to play. 
It is pleasant to see 
that Orwin's kind 
of quality is avail¬ 
able again." 

From review of 
Cassette 5 in Sin¬ 
clair User, Septem¬ 
ber 1983. 


% 


Member nl the 
Computer Trade 
Association 


Please make your cheques payable to ORWIN SOFTWARE. 

ORWIN SOFTWARE. Dept OSP. 26 Brownlow Road, Harlesden, London NWIO 9QL. 


ZX81 and SPECTRUM SOFTWARE WANTED (Royalties or buy outright) 


Irans 

cash 


505 4362 


For ore 

A|orprt 
nl Ihp 
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B ECOME a fully-fledged BMX 
Rider in Ian Drake’s program 
for the 48K Spectrum. The game 
requires skill, as you must judge the 
correct speed to jump to clear the ramps 
as they appear before you. 


100 CLS 

lie PRINT AT 0,10;"<9a BMX’9d> 


120 PRINT AT 2.0; 
f the game is to 
defin9 ramPs.You 
BMX with keys '8' 
and increse your 
nd to «o left 
your speed by 1 . 
the ramP at the 
to clear it.Each 
ar it the ramP 
len9ht.If you 
ramPs you become a 
od luck!!I” 

130 PRINT AT 13/2 
v to start" 

240 PAUSE 0 
1801 CLS 
10Qb LET s-10 
1010 LET j»1 
1015 LET sc=0 
1025 PRINT AT 0,0; FLASH 1;"SPEE 


The object o 
jump 7 death 
control your 
to 9o ri9ht 
sPeed by 2 a 
and decrease 
You must hit 
right sPeed 
time you cle 
Increases xn 
clear all 7 
8MX rider.Go 


1030 PRINT AT 0,12; FLASH l,"SCO 
RE -";sc 

1035 PRINT AT 0,22; FLASH 1;"JUM 


1045 PLOT 0,35 1 DRAW 255,0 
1050 PLOT 0,34’ DRAW 255,0 
1060 LET b*-"< 9b 93 f 9c >c" 

1065 PRINT AT 9,15;b* 

1070 PAUSE 50 * BEEP .08,10- BEEP 
.01,-2 < BEEP .5,3- BEEP .08,10 
2005 LET a-0 
2016 LET b-9 

2015 LET a*=" <9a> "- IF INKEY** 
"5" THEN LET a*=" <9d> - 
2020 LET a-a+<INKEY*-"8" AND a<2 
3:-<INKEY*» H 5" AND a>0> 

2025 PRINT AT b,a;a* 

2035 IF INKEYS*"6“ THEN LET s-s 
+2- IF s>33 THEN LET s-39 
2040 IF INKEY**"5" THEN LET s«s 
-1= IF s<10 THEN LET s-10 
2045 PRINT AT 8,0; FLASH 1;"SPEE 
0 - "; s 

2050 IF j-l THEN GU TO 6000 
2055 IF j*2 THEN GO TO 6008 
2060 IF j-3 THEN GO TO 6008 
2865 IF j-4 THEN GO TO 6000 
2070 IF j=5 THEN GO TO 6088 
2075 IF j=6 THEN GO TO 6000 
2068 IF j- 7 THEN GO TO 6880 
2108 GO TO 2015 
3005 PRINT AT b,a;" " 

3818 LET b-8’ LET a-a+1 
3815 PRINT AT b,a;a* 

3828 FOR a*14 TO i+16 

3025 PRINT AT b,a;a»- PAUSE 3 

3030 NEXT a 

3035 PRINT AT b,a;” 

3048 LET b=9 

3045 PRINT AT b,a;a* 

3850 LET j=j+l- LET sc=sc+10- LE 
T s=18 

3055 PRINT AT 0,22; FLASH l;"JUM 
P - ", J - PRINT AT 8,12; FLASH i;"S 
CORE -";sc 

3860 IF J=2 THEN LET 2* 

93 - 9c >" 

3065 IF j- 3 THEN LET b*-"<9b-3* 
93•9c>" 

3870 IF j-4 THEN LET b**"<9b4* 

93 - 9c >" 

3075 IF j= 5 THEN LET b*-"<9b-5* 
93-9c>" 


3080 IF j=6 THEN LET b*-"9b 6*9 
3 ’ 9c >" 

3085 IF j-7 THEN LET b*-"<9b-7* 
93 9c >'* 

3086 IF j= 8 THEN GU TO 8080 
3095 PRINT AT b,j;“ 

3100 GO TO 1065 
4005 PRINT AT b,a; N 
4010 LET b=8 
4815 LET a-a+1 
4020 PRINT AT b,a;a* 

4825 FOR a-14 TO 15 

4o30 PRINT AT b,a;a* PAUSE 10 

4835 NEXT a 

4840 PRINT AT b,a;" 

4045 LET b=9 

4050 PRINT AT b,a;"<9a>" 

4055 PAUSE 50 
4060 GO TO 7080 

6008 IF 3=12 AND s<“sc+32 OR a=l 
2 AND S>=SC+48 THEN UO TO 4030 
6005 IF a«l2 AND s =sc-*4y OR j-*i 
2 AND s< -sc+50 THEN GO TO 3000 
6010 GO TO 2015 
7885 CLS 

7015 FOR a-1 TO 3 


7320 PRINT AT 3,a, 
HED■9d >"• PAUSE 10 
7825 NEXT a 
7830 PRINT AT 9,18 


YOU SCORED 


7840 PRINT AT 15,1;"PRESS ANY KE 
Y FOR ANOTHER GAME" 

7850 PAUSE 8 
7868 RUN 
0385 CLS 

8018 PRINT AT 5,1;"YOU HAVE JUMP 
ED ALL THE RAMPS YOU ARE NU 

W A eMX RIDER WELL 

DONEl•!I" 

8020 GO TO 7830 

9080 FOR z-USR "a" TO USR "d"+7 
9810 READ user- PUKE 2,user 
9020 NEXT z 

9030 DATA 48,56,48,127,118,153,1 
53,162 

9040 DATA 0,0,7,15,31,63,127,255 
9050 DATA 0,0,224,240,248,252,25 
4,255 

9060 DATA 12,28,12,254,110,153,1 
53,102 
9070 RETURN 
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BU5IME55 
MAM 


F OUR TELEPHONES appear on 
the screen and when one of them 
rings you have to guess which it 
is and answer it. If you choose the 
wrong telephone your firm will become 
bankrupt or be swindled by a client. If 
you answer the correct telephone your 


shares will rise or you will learn of an 
inheritance. The object is to try to raise 
as much money as possible before being 
made bankrupt. 

Business Man was written for the 
IK ZX-81 by David Hindon and Mar¬ 
tin Bowell, of Swindon, Wilts. 



M OVE your laser base left and 
right with keys “6” and “7” 
and catapult missiles into 
space using “0”. You must fire at the 
Sun King as it passes and attempt to 
reach as high a score as possible before 
you run out of laser power and the Sun 
King wins again. 

Written for the 16K Spectrum by 
Christopher Powton of Shildon, Co. 
Durham. 


<= 1 THEN 


150 IF INKEY* = "0" THEN FOR f 
=19 TO 10 STEP -1: PRINT AT *,p 
06*1 ; M £ H : BEEP .005,*: BEEP .005 
,f*pos/v/laser: BEEP .005,laser: 

PRINT AT f,pos*l;“ M : NEXT f: 
IF *-9 AND pos-v*l OR *=9 AND po 
s-v THEN LET sc=sc*10: BEEP .1, 
5: PRINT AT 10,v;" LET v=0 

: | GO TO 100 

160 IF laser <- O THEN PRINT " 
THE SUN KING WINS AGAIN !!!!!!": 
PAUSE O: PAUSE 0: CLS : RUN 
170 IF sc>1000 THEN PRINT "YOU 
WIN CONTROLL OVER THE SUN": FOR 
f=l TO 5: BEEP .1,*: NEXT *: PA 
USE Ox PAUSE 0: CLS : RUN 
200 LET v=v+l 
2000 GO TO 90 


>: NEXT f 

76 CIRCLE 175,123,10 
80 LET laser=20: LET pos=15: L 
ET v=0 

90 PRINT AT 20,pos; INK O; " _D 
PRINT AT 21,pos; INK 0;■ E 


1 LET sc=0 

10 PAPER 2t INK 6: CLS 
15 FOR *= USR "a" TO USR "*“ + 
7* READ a: POKE *,a: NEXT * 

20 DATA 8,20,36,72,68,69,196,1 
98 

30 DATA 15,24,51,102,102,51,24 
,15 

40 DATA 240,24,208,102,102,208 
,24,240 

50 DATA 0,24,60,126,24,60,60,6 


101 IF v >= 29 THEN PRINT AT 
10,v; M “: LET v=0: LET 1aser=l 

aser-1: GO TO 100 
110 IF INKEY* =“6" THEN LET p 
os=pos-l: BEEP .005,pos 
112 PRINT AT 0,10;"SCORE - "{* 


60 DATA 126,24,24,24,24,60,102 


70 DATA 0,0,24,24,24,60,36,0,0 


120 IF INKEY* -"7" THEN LET p 
os=pos+l: BEEP .005,pos 


75 FOR *=1 TO 30x PLOT INK 6; 
INT •( RND *200), INT < RND *150 
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THE MAJORITY of microcomputer 
owners aim to provide their computers 
with as much memory as possible. Six 
months after buying his ZX-81, David 
Aubrey-Jones of Burley, Leeds removed 
the RAM pack and set himself the 
challenge of writing a mappable adven¬ 
ture game. 

The result was Haunted Dungeon 

and some memory-saving techniques 
which allowed him to write other ad¬ 
ventures on a IK ZX-81. Since then he 
has bought a Spectrum and begun writ¬ 
ing machine code games, the latest of 
which, Supertalk, allows the Spec¬ 
trum to read sentences and to learn 
words. It has just been marketed by 
Abbex. 

To play the game you must first give 
values to some variables: 

LET 1=1 
LET F=5 
LET X = 6 
LET T = 10 
LET H= 100 

The game should then be started by 
ENTERing GOTO 1. 

You enter the dungeon down some 
steps with an initial strength of 20. 
Your object is to find the treasure and 
return to the steps without your 
strength falling below 1. Enter N, S, E 
or W to move in different directions. 
You may find your way barred by a 
wall, have your strength sapped by a 
monster, or increased by finding food. 
Divining rods point to the treasure; 1 
indicates that they are pointing south 
and -1 that they are pointing north. 


25 LET R*INT < RND*H*H ) 

30 LET B=R+H 

35 LET C*INT <R+RNWH) 

40 IF G/F-INT <G/F> OR R/F*INT 
<. R/F > THEN GOTO T 
4b LET S-T+T 
50 LET P*R 
8a p&\*n 

53 IF NOT G THEN PRINT "RW) B2 

CH.-.£";RjY 

55 IF S>T+T THEN LET S»T+T 
60 PRINT S 
65 LET 0.-P 
70 INPUT M* 

60 LET Pi*P+<M*- ,, E" >+< )*F 

“ >*F 

106 IF POO AND P>*R RND POB fl 
NL« P/FOINT < P/F) THEN GOTO W*T* 
T 

105 LET P=Q 

WO WMNJ-T "am" 


115 GOTO CODE “PI 11 
120 CL3 

125 PRINT <"##" RND P*G > 

130 LET G*G*CPOG> 

140 IF P*R THEN GOTO CODE "H" 

160 RRND P 

165 LET R»T**F*RND 

170 LET R-INT <<R-INT R >*T > 

130 LET 8*S-Ivr*<R-F>-INT iBHPW 
T*< R< «= I > > 

190 LET P~P+INT C*ND*T*<R-I-fI >* 

<P+T<*B>> 

210 PRINT < "9host M RND NOT R >♦< 
"dra9on" RND R-I>+< "giant bs.tr 1 
RND R=I + I >*K 11 ITS d*r»k RND WET M R 
ND R>X> 

220 IF R>X THEN PRINT "DiViNtN* 
ROD*";SGN <G-P> 

240 IF S>«I THEN GOTO CODE "R" 
250 PRINT "R.I.P" 
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HERE HAVE been requests 
for two-player games. William 
Hoyland of Surbiton, Surrey has 
supplied one such game for the 16K 
ZX-81. 

Player one attempts to move the snail 


ib gusub 5000 

20 LET A*10 
30 LET B-10 
40 LET Sl^O 
50 LET S2=0 
60 DIM AIK 20,30 > 

70 FOR 2=1 TO 30+S1+32 
0O LET X-INT <RND*19>+1 
90 LET Y-INT <RND*20)+5 
10O PRINT RT X,Y;"<91>" 

HO LET ft*<X/Y) _ "<91 >" 

120 NEXT 2 

139 LET D-l 

140 LET E-30 

lbO PRINT RT R,D>"0" 

135 PRINT RT B,Ej"*" 

160 LET R«<R,D)-"0" 

16b LET R*<B,E>-"*" 

170 LET C-PEEK 16421 
190 LET B-B-CCC-223 OR C-2l9 OR 
0221 > AND 6-1 >0>+<< 0191 OR O 
187 OR C"189 > AND B+1C21> 

190 LET R-R-C<0251 OR C-219 OR 
0187) AND A-l>0>+<<C*253 OR C« 
221 OR 0189> AND A+1<21 > 

200 LET D-D+l 
210 LET E-E-l 

215 IF D-31 THEN GOTO 3000 
217 IF F\9<.fi>0)<>" " AND A*<B-E> 
O"." THEN GOTO 3000 
220 IF " THEN GOTO 1 

000 

230 IF R*< B/E ><>" " THEN GOTO 2 
000 

240 PRINT AT A,D;">" 

250 PRINT AT B,E; H <" 

260 GOTO 150 
1900 FOR 2-1 TO 20 
1010 PRINT AT fl,D; •'<!>>" 

1020 PRINT AT A,D;">“ 

1030 NEXT 2 
1035 CLS 


from the left of the screen to the right, 
while the snail of player two attempts to 
cross from right to left. 

Both players must avoid the deadly 
slug pellets and the slimy snail trail of 
the other. 


1040 PRINT “THE GOOD LOOKING ONE 
ON THE RIGHT WINS.",,,, 

105O LET S2-S2+1 

1070 PRINT SI;TAB 29-LEN < 

STR* S2 ); S2; "— >“ 

107b IF S2-10 THEN GOTO COOO 
1077 PRINT AT 10/10;"TOUCH A KEY 

II 

1080 IF INKEY**"“ THEN GOTO 1000 

1090 CLS 

1100 GOTO 60 

2000 FOR 2*1 TO 20 

2010 PRINT RT B/E;'Y i< )" 

2020 PRINT AT B,E;"<" 

2030 NEXT 2 
2040 CLS 

2050 PRINT “THE GOOD LOOKING ONE 
ON THE LEFTWINS.",,,, 

2060 LET Sl-Sl+1 

2070 PRINT SI;TR6 29-LEN < 

STR* S2 >; S2; "—>“ 

2075 IF SI-10 THEN GOTO 6000 
2077 PRINT AT 10/10;"TOUCH A KEY 

If 

2080 IF INKEY*-"" THEN GOTO 2080 
2090 CLS 
2100 GOTO 60 
3000 CLS 

3010 PRINT TAB 6;"NOBODY WINS GE 
EKS",// 

3020 GOTO 2070 

4000 SAVE "SNAIL TRAIl" 

4010 RUN 

5000 LET B*-"*rTOUCH*A*KEY****** 
*************HI. THE FOLLOWING 
GAME IS CALLED SNAIL TRAIL AND I 
T REQUIRES TWO PLAYERS TO NAV1CA 
TE THEIR SPEEDY SNAILS ACROSS AN 
AREA OF LETHAL SLUG PELLETS WHI 
LST AVOIDING THEIR OPPONENTS DEA 
DLY TRAILS.PLAYER ONE USES THE K 
EYS Q AND A TO MOVE UP AND DOWN. 



PLAYER TWO USES KEYS 0 AND L. *** 
*************GO0D LUCK**#*" 

5010 PRINT AT 9,7;"<90-16*99'95> 
M i AT 18,7;"< 98 >t*TOUCH*A*KEY***< 
95 )" l AT ll,7j"<98'16*9f’95>" 

5020 IF INKEY*-"" THEN GOTO 5029 

5030 FOR A-l TO LEN B®-15 

5048 PRINT AT 10,8jB*<A TO A+ib> 

5050 FUR 6-1 TO 3 

5060 NEXT 6 

5070 NEXT A 

5080 FOP R=1 TO IAS 

5090 NEXT A 

5100 CLS 

5110 RETURN 

6080 PRINT 

6010 PRINT "AND THE OVERALL WINN 
£R,",,, 

6020 PRINT "WITH AN INCREDIBLE L 
EflD OF "j 

6030 IF SI>S2 THEN PRINT S1-S2 
6040 IF S2>Sl THEN PRINT S2-S1 
6050 PRINT 
6060 PRINT "IS..." 

6070 PRINT 

6880 PRINT "THE DEVILISHLY FIEND 
ISH..." 

6090 PRINT 

6100 IF S2>S1 THEN PRINT "PLAYER 
ON THE RIGHT" 

6110 IF Si>S2 THEN PRINT "PLAYER 
ON THE LEFT" 

612G PRINT 

6130 PRINT - TOUCH A KEY TO PL 
AY AGAIN" 

6140 IF INKEY**"" THEN GOTO 6140 
6150 CLS 
6160 RUN 
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T HIS EDUCATIONAL program, 
Two-stroke Engine, was de¬ 
signed for the 16K Spectrum by 
Tim Rose of Woolwich, London. For 
those interested in simple physics it 
describes, with working diagrams, the 
action of a two-stroke engine. It would 
be useful as a demonstration program 
for teaching, or for students struggling 
to reproduce diagrams. 




tb CO SUB '-N'V BORDER O- PAPER 
0 INK 6 * LLS 
26 CIRCLE 125, 39,24 
36 PRINT AT 20,0;"Two Stroke"' 
"En9iv>e bx Tim Rosc 10^2/1983" 

49 PLOT 102*160’ DRAW 0,-50 D 
PAW -12,-15- DRAW Q,-50- DRAW 76 
,0,PI- DRAW 0,30- WWW -9,5 DR A 
In 15.0- PLOT PEEK 236??,PEEK 236 
7*3+12 

59 DRAW -15,0’ DRAW 0,4 DRAW 
15,0- PLOT PEEK 23677,PEEK 23676 
+12- DRAW -!5,0 DRAW 9,53- DRAW 

-50,0,2* PLOT 100,90- DRAW 0,-3 
5- DRAW -1,9- DRAW 9,35 

60 PRINT AT 0,14; INK 7) BRICH 

T l;"a/' 

70 FOR J-<2*PIVPI/6 TO 0 STEP 
-PI/6 

39 FOP r-Ci TO J 

99 LET b-l26+20*COS *’ LET c-3 
9+29TSIN ? 

100 PLOT OVER 1; b, c * DRAW OVER 
1: 1.26-b, 45 

119 LET d-c +45 

120 OVER 1- PLOT 105,d- DRAW 44 
•9- DRAW 0,28- DRAW -32,10 DRAW 

-13,-10- DRAW 9.-28- OVER O 


120 IF INT r-59 THEN GO SUB 021 

140 IF INT r-56 AND bM26 THEN 
PRINT AT 9’, 9.1 "Power " i RT 1, 

14;- ";AT 2,13;" ";AT 3, 

13?" 

150 IF INT c-21 AND b>!26 THEN 
CO SU8 0230 

169 IF INT r-30 AND b<126 THEN 
PRINT AT O,0;"ComPreiilorT 

170 IF INT r-4S AND INT b<126 T 
HEN GO SUb 9280 

180 IF <INKEY*-"c" OR INKEY*«"C 
"> AND T-0 THEN COPY 

190 IF ' INKEY*-"*" OR INKEY*-"S 
"> AND 7*0 THEN GO TO 190 

200 NEXT 7’ NEXT s GO TO 70 

210 PRINT AT 0,0:"19mtion 

AT t.!4: INK 2; BRIGHT 1; -bbbb" 
;AT 2,12;"bbbbbb“;AT 2,13; " bbbbb 
h"; AT 3,ltC “ bbbbbb ’’ • IF. 7*0 THEN 

FOR v-*0 TO 10- OFPP 0.01,10- BE 
FP 0.01,20- NEXT x 

229 RETURN 

230 PRINT AT O.0;- "• OVE 

R 1- PLOT 134,122- DRAW 20,-20,P 
1^2- PLOT 155,102 DRRU 16,0 PL 
OT 166.106 DRAW 5,-4- DRAW -5,- 


•4- PRINT AT 9,22;"Exhaust";AT 18 

,24;"Out" 

240 PRINT AT 9,0;"Fuel forced"; 
AT 10,5;"uP" PLOT 96,40= DRAW 0 
,55 DRAW 20,22* DRAW -5,0- POKE 

39677,PEEK 2367?*5< DRAW 0,-5' 
OVER 0 

250 IF 7-0 THEN FOR x*l TO 1Q0- 

IF INKEY*-"r" OR INKEY*-"C" THE 
N COPY 

260 IF 7-0 THEN NEXT y 

270 RETURN 

28*3 OVER !• PLO T 160,85- DRAW - 
12,8- DRAW -5,-20’ DRAW -4,5- PO 
KE 23677,PEEK 23677+11- DRAW -6, 
-5’ PRINT AT 11,21;"Fuel mucked" 
;AT 12,25;"in"• OVER O’ GO TO 25 
0 

290 RESTORE 300’ FOR x-0 TO 14' 

READ s’ POKE USR "s"*x,v NEXT 
x- RETURN 

309 DATA PIN 9000111*3. BIN 00001 
110,PIN 00*311111,BIN 00011111,32 
,BIN 110*31110, BIN 00000100.BIN O 
0001100, BIN G10! *01.0,0, BIN 10101 
H01,e,8IN 01 *30 1010,0,BIN 0010010 
0,0 

310 SAVE "2 Stroke" LINE 1 
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S HEILA BRITTON of Reading, 
Berkshire wrote Jaws for her five- 
year-old daughter. It is for the 
16K ZX81 and is a simple mathematics 
program with a shark chasing a fish at 
the bottom of the screen. If you answer 
correctly the fish will escape. 


10 PRINT AT 3,12;"JAWS" 

15 PRINT AT 4,12;" 

26 PRINT AT 7,0;"TRY TU HELP T 
HE FISH ESCAPE FROM" 

25 PRINT "THE SHARK BY LETT1NO 
THE ANSWERS" 

30 PRINT "RIGHT." 

35 PRINT AT 12,0;"AT THE END P 
RESS Y AND NEWLINE" 

40 PRINT "TO PLAY THE GAME AGA 
IN. " 

45 PRINT AT 16,0;"PRESS ANY KE 
Y TO START." 

50 IF INKEY*-"" THEN GOTO 50 
100 CLS 
105 LET W-0 
110 LET F-0 
120 LET X-0 

130 PRINT AT 20,0/"< 9a■9d'9a' 9d 
9a 1 9d 1 9a 1 9d 9a 1 9d■9a 9d'9a■ 9d 1 9a 
■9d•9a 1 9d•9a 9d 9a 9d•9a 1 9a ; 9a■9 
d 1 9a■9d <9a 1 9d■9a•9d)" 

146 PRINT AT 16,30;"Y" 

150 PRINT AT 17,30;"Y" 

160 PRINT AT 18,20;"Y Y" 

170 PRINT AT 19,28;"Y Y" 

180 GOSUB 600 
190 GOSUB 700 
200 RAND 

210 LET fl-INT <RND*H> 

220 LET B-INT <RND*11> 

230 IF X-0 THEN GOTO 800 
235 GOSUB 900 

246 PRINT AT 4.5;"WHRT IS ";A;" 
+'* / B 

250 INPUT ANSWER 
260 PAUSE 40 

270 PRINT TAB 13;A;;B;;AN 
SWER 

280 IF ANSWER-A+B THEN GOTO 400 
300 PRINT TAB 12;"WRONG.TRY AGA 
IN." 

310 FOR 2-15 TO 18 
320 PRINT AT 2,W;" 

330 NEXT 2 
340 LET W-W+b* 

350 GOSUB 680 

360 IF F-W+2 THEN GOTO 480 

370 GOTO 235 

400 PRINT TAB 13;"RIGHT.WELL DO 
NE." 

410 PRINT AT 16,F;" 

420 PRINT AT 17,F;" 

480 LET F-F+6 

440 GOSUB 700 

450 IF F-26 THEN GOTO 540 

4b0 GOTO 210 

480 PRINT AT 10,0;"SORRY.YOUR F 
ISH HRS BEEN EATEN." 

490 GOTO 550 

540 PRINT AT 10,0;"CLEVER YUU.T 
HE FISH HAS ESCAPED." 

550 PRINT AT 12,0;"D0 YOU WANT 
TO PLAY AGAIN7Y OR N" 

560 INPUT R* 

570 IF R*-"Y" THEN GOTO 100 


5S0 CLS 

585 PRINT AT 10,12;“GuUDBYE." 
590 STOP 

680 PRINT AT 15,W;"<9a : 4*9a)" 
610 PRINT AT 16,W; "C4*9a ! 10 ! 9a > 

620 PRINT AT 17, W; 6*9a >" 

630 PRINT AT l3,W;"<9a 4*9a>" 

b40 RETURN 

700 PRINT AT 16,F;"<9w■iftP ! l* >" 
710 PRINT AT l7,F;"9e 2tisP>" 
720 RETURN 

800 PRINT AT 3,0;"HELLO." 


810 LET X-l 
320 GOTO 240 
906 FOR 2-3 TO 6 
910 PRINT AT 2,0;" 

320 NEXT 2 
930 RETURN 
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5 GOTO 8000 
? CLS 

10 RAND 

•.'0 LET B*="" 

30 PRINT "WHAT IS YOUR NAME PL 
EASE?" 

40 INPUT C* 

bO PRINT “WHAT DO YOU WANT TO 
SAY ";C*,"?" 

60 PRINT 

70 INPUT A* 

75 IF PEEK 1639e+256*PEEK 1639 
9 ’.‘PEEK 16396+256*PEEK 16397+693 
THEN CLS 

Q0 IF A*-"" THEN GOTO 70 

85 IF ASCLEN AS ><>"." AND AS< L 
EN A® X >"?" THEN LET A*-R*+"." 

90 PRINT. "YOU : ;A* 

100 IF A*< LEN R*>="." OR A*<LEN 

AS >="?" THEN LET AS=AS< TO LEN 
AS-1 ) 

105 IF AS-"CHANGE USERS" THEN G 
OTO 7 

110 LET K>0 

120 IF AS-"GOOD" THEN LET RS~"T 
HANK YOU" 

130 IF A*-"HI" OR R*~"HELLG" OR 

A#*"GOOD" OR LEN AS<2 THEN LET 
K*1 

140 IF LEN AS<2 THEN LET BS-""" 
"+AS+.IS NOT A SENTENCE" 

150 IF RS="HI" OR AS 59 "HELLO" TH 


EN LET BS-"HELLO THERE" 

160 LET DS-"DO" 

170 IF LEN AS<3 THEN GOTO 330 
ISO IF AS< TO 2>*"A " AND LEN A 
*<10 THEN LET BS-"WHAT IS "+A* 
190 IF LEN AS<7 THEN GOTO 270 
2O0 IF A*< TO 4>="FUR " OR A*< 
TO 7>"BECAUSE" UR AS< TO 3>-"T0 
" OR A*< TO 2 >="30 " THEN LET B 
S’"I SEE" 

210 IF RS< TO 4>-"STUP” THEN LE 
T BS-”ALL RIGHT" 

220 GOSUB 4000 

230 IF AS< TO 4>«"THE " OR AS< 
TO 4 >*“HIS " OR AS< TO 4>-"HER - 
THEN LET BS-"REALLY" 

24Q IF B*-"" THEN GOSUB 5000 
25Q IF AS< TO 3>«"WE " THEN LET 
BS-"WHO DO YOU MEAN BY WE" 

260 IF AS< TO 2)="I " THEN GOSU 
8 100O 

270 IF LEN A*<5 THEN GOTO 290 
280 IF LEN A*>8 AND RS< TO 4>-” 
THEY" THEN GOSUB 7000 
290 IF LEN AS>7 AND AS< TO 3>~" 
HE " OR AS< TO 2>-"IT" OR A$< TO 
3>-"SHE" THEN GOSUB 2O00 
300 IF LEN AS-8 AND AIK TO 0>-" 
YOU" THEN GOSUB 3O00 
310 IF LEN AS A THEN GOSUB 460 
330 IF AS-'*NO" THEN LET 8*-"WHY 
NOT" 


335 IF AS—YOU" THEN LET BS*"WH 
AT ABOUT ME" 

340 IF AS-"YES" THEN LET BS«"WH 
Y ° 

345 IF AS-"ME " THEN LET BS-"WHA 
T ABOUT YOU" 

350 IF A*="THANK ME" THEN LET B 
B=-"I AM ONLY FOLLOWING ORDERS" 
360 IF AS-"I KNOW" THEN LET 6S» 
•GOOD" 

;70 IF BS —"" THEN LET BS=AS 
375 IF PEEK 16398+256*PEEK 1639 
9>PEEK 16396+256YPEEK 16397+693 
THEN CLS 

380 PRINT " ME-"; 

390 IF BS-AS AND PND<.7 OR RND< 
.2 AND LEN BS+LEN C*<18 THEN PRI 
•JT "ER. 

40O PRINT BS; 

416 IF BS~"REALLY" AND RND<.5 0 
R RND>.65 AND LEN BS+LEN CS<25 T 
HEN PRINT " ";C»; 

420 IF RS<'‘"THANK ME” AND B*<>" 
GOOD" AND BSO'T SEE" AND B$<>"A 
LL RIGHT" AND KOI THEN PRINT "? 

M 

430 IF AS-"THANK ME" OR BS-"I S 
EE" OR BS-"ALL RIGHT" OR B*="GUO 
D" OR K-l THEN PRINT 
440 LET B*-"" 

450 GOTO 70 

460 IT A*< TO 4>="Y0UR" THEN LE 


H OLDING an intelligent con¬ 
versation with your 16K ZX- 
81 may seem a remote 
possibility but this program by Simon 
Parker of Leeds makes that possibility 


closer than any other which has yet 
been submitted to Sinclair Programs. 

Type-in your side of a Conversa¬ 
tion and the computer responses will be 
displayed on the screen. The program 


will give a sensible answer to the ma¬ 
jority of your questions and can even 
cope with philosophical points such as 
“What is the meaning of life?” or “Why 
did the chicken cross the road?” 




THEN LET 


T B®="I KNOW" 

470 IF AS< TO 4 YOUR" THEN LE 
T K=1 

480 IF A*': TO 4 >""LOTS" THEN LE 
T 8*-"SUCH AS" 

490 IF AS< TO 3 ”MY " THEN LET 
8*="Y0UR"+A*< 3 TO > 

500 IF A*< TO 3>»"ME " THEN LET 
B*="Y0U"+AS<3 TO > 

9013 RETURN 

1000 IF RSC3 TO 4 )=”AM" THEN LET 
B*»"WHY ARE YOU"+A*< 5 TO > 

1002 IF AS<3 TO 5>®"CAN" THEN LE 
T B*="HOW CRN YOU"+A*<6 TO > 

1805 IF R*< 3 TO 5>="WAS" THEN LE 
T BS-"UHY WERE Y0U"+A*<6 TO > 
1007 IF ASK 3 TO 5>-"DID" THEN LE 
T BS-"WHY DID YQIJ"+AS<6 TO > 

1009 IF RS< 3 TO 4>*"D0" AND B*-’’ 
" THEN LET B*-"WHY DO Y0U M +AS<5 
TO > 

1O20 IF A3K3 TO 7>="COULD" THEN 
LET B*=”HOW COULD Y0U"+AS<8 TO > 
1030 IF AS< 3 TO 6 >="HAVE " THEN L 
ET B*“"WHY HAVE YGU"+AS<7 TO > 
1840 IF AS< 3 TO 7 >■"WROTE" THEN 
LET B**"WHY DID YOU WRITE"+AS<3 


TO > 

1890 IF BS-"" THEN LET BS-"WHAT 
"+DS+" YOU"+A*< 2 TO >+" FOR" 

190O RETURN 

2010 IF A*<5 TO 6>=»"IS" THEN LET 
BS-"WHAT IS IT THAT MAKES HER " 
+AS<7 TO > 

2030 IF RS<4 TO 7>-"DOES" THEN L 
ET B*»"WHY DOES "+RS' TO 2>+AS<8 
TO > 

2035 IF A*< 5 TO 8>="L-0ES“ THEN L 
ET BS="WHY DOES SHE"+fl*<9 TO ) 
2040 IF AS<4 TO 6>=*"CAN" THEN LE 
T BS="HOW CAN ”+A*< TO 2>+AS<7 T 
0 > 

205O IF ASK 5 TO 7 >="CAN“ THEN LE 
T B*="HOW CAN SHE“+AS<0 TO > 

2860 IF 3*-"" THEN LET BS-"WHY I 
S IT THAT "+AS 
29O0 RETURN 

3080 IF R*K5 TO 7 > 5 »"APF I ‘ THEN LE 
T e*’"WHY AM I"+AS< 8 TO > 

3010 IF AS<5 TO 3'-"WERE" THEN L 
ET 6S-"WHY WAS I"+AS<9 TO > 

3020 IF ASCS TO 8>-"HAVE" THEN L 
ET BS="WHY HAVE I"*AS<9 TO > 

3030 IF A*<5 TO 9>="W0ULD" THEN 


LET BS="WHY WOULD I"+A*<10 TO } 
3O40 IF ASK 5 TO 7>-"D0 " THEN LE 
T BS="WHAT DO 1"+A*<7 TO >+" FOR 

N 

3O50 IF ftS< 5 TO 7 >«"CRN" THEN LE 
T B®="HOW CAN I"+ASC8 TO > 

308O IF BS-"" THEN LET 8**"WHAT 
''+DS+" I "+A#< 4 TO >+" FOR" 

3090 RETURN 

400O IF ATK TO 4"WHAT" OR A*< 
TO 3>-"WHO" THEN LET B*-"I DO NO 
T KNOW" 

4005 IF R*< TO 2'-"WHY" THEN LET 
BECAUSE THAT IS THE WAY IT 
IS" 

4010 IF A3K TO 5>-"WHERr:" THEN L 
ET E'*-"OVER THERE SOMEWHERE" 

4020 IF A*< TO 3>*"RRE" OR A*< T 
0 5>’“WILL " THEN LET BS-"PROBAB 
LY" 

4030 IF ASK TO 5 "COULD" OR A*< 
TO 4)*"CAN « THEN LET B*-"I DOU 
BT IT- 

4040 IF AS< TO 5 >="D0 YU" THEN L 
ET B*="I MIGHT DO" 

4O50 IF ASK TO 3 >*"HOW" OR A*< T 
0 4>^"1JHEN" THEN LET B«-"WHAT DO 
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YOU WANT TO KNOW THAT FOP" 
4060 IF B*-”" THEN RETURN 
4O70 IF BS< 1 X>"W“ THEN LET K-l 
403O RETURN 
5O00 DIM A< LEN A* > 

5005 LET Bt-" 

501O FOR F'5 TO LEN At-1 
5015 LET Ac F >-& 

5920 IF AtCF TO F+1>="MY” THEN L 
ET A< F 1 

5021 IF AS< F-1 TO r+1?-' ME" THE 
N LET fl< F }=3 

5023 IF AtCF-3 TO F+l >- f, LIKE " 0 
R fl*CF-3 TO F+l>~"LOVE ” THEN LE 
T K*F 

5025 IF Ate F-2 TO F+l >*-"YOUR" TH 
EH LET A<F'--2 

5027 IF ASKF-1 TO F+l >-”Y00’ THE 
N LET A< F >"4 

5029 IF ASKF-1 TO F+l I " THE 
N LET A< F >--l 

5030 IF ASK LEN At-1 TO >»"ED" OR 
ASKF-1 TO F+1>-”ED ” OR AS<F-3 

TO F+l >="UGHT ” THEN LET D»="HR 
VE" 

5032 IF A3KF-1 TO T+l >-"OFF” THE 
N GOTO D00O 
5035 NEXT F 


5040 LET L-LEN A* 

5050 FOR F~4 Tfj L 

5055 IF A<F>*=-1 THEN LET At*Ate 

TO T-l *•+ "YOU" +A*< F+l TO > 

5060 IF A< F >=1 THEN LET At^ASC T 

0 F-l >+"Y0UR**+RlKF+2 TO > 

5062 IF A'F'.-O THEN LET flt-frtK T 
0 F - ! >+ ” YOU “ +A*< F+2 TO > 

5065 IF A< F >~2 THEN LET AS-ASC T 
0 F-3 >+"MY"+At< F+l TO > 

5067 IF R< F >—4 THEN LET AS-A*< T 
O F-2>+"ME"+At<F+2 TQ > 

5070 NEXT F 

5075 IF K>2 THEN LE T IS 

" +A*< X+1 TO '*+■' LIKE” 

5077 LET K-0 

5030 IF AKLEN At -"8" RK> B*< T 
0 4>*"WHRT" THEN LET B*-”WHAT AR 

f+etce to '• 

6000 if r.*< l 
6020 RETURN 

7003 IF At- 6 TO •;* •-"HAVE” THEN L 
ET C«-”WHY HHV f TH;V*A$< 10 TO ' 
7010 IF AtC6 TO 8>~"AR£" THEN LE 
T At-”WHY APE THEY"+A*<9 TO > 
7920 IF Bt^“” THEN LET Ut^’WHY - 
+D*+" THEY“+At< 5 TO > 

7909 RETURN 


8O00 DIM ASKS.30 > 

8O10 LET AtC1>« H I AM YOUR 2X81, 
AND I AM HERE" 

8020 LET Ate 2^-"TODAY TO COMMONI 
CATE WITH YOU," 

8030 LET Ate 3>-"AND MAKE YOU REA 
LICE JUST HOW" 

8040 LET Ate 4 >~"MUCH THE WORLD 0 
F THE USERS" 

8059 LET A*< 5>-”INTERESTS ME." 
3060 LET Ate6>=" I HOPE I DO NOT 
SCARE YOU,AS" 

3O70 LET Ate7>="I AM A VERY FRIE 
NDLY COMPUTER," 

0089 LET R«es>-”AS YOU SHALL SOO 
N SEE." 

8110 FOR F-M TO 8 
8115 FOR B-l TO 30 
8117 PRINT AT FY2+ 

8120 PRINT AT F*c2+1,8; At< F, 8 > 
3120 NEXT 8 
8158 NEXT F 
8240 RUN 7 

9900 CL8 

9810 PRINT AT 10,1;"I DO NOT L1K 
E YOUR LANGUAGE“ 

9020 PAUSE 150 


THEN !_ET PT. 
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D R ELIOT GINGOLD, lecturer 
in genetics at Hatfield Polytech¬ 
nic, has sent a Spectrum pro¬ 
gram to simulate the development of 
mixed populations under evolutionary 
pressures. He believes that the use of 
computers for the purpose has the great 
advantage over mathematical equations 
that random influences can be included 
in the model. 

The listing sets up a small, local 
population of black and yellow mice 


UNDERSTANDING 

TVOTUTIOTV 


and follows it for successive genera¬ 
tions. The variation in colour is con¬ 
trolled by two variant forms of a single 
gene, with the black-inducing gene 
dominant over yellow. 

The user is invited to fix the popu¬ 
lation size and the differing selection 
pressures on the two types. An interest¬ 
ing finding is that small populations 
suffering no selection pressure eventu¬ 
ally will resolve into entirely black or 
yellow types. Such results show the 


importance of the random element. 

“This so-called ‘genetic drift’ is an 
important factor in discussions of evolu¬ 
tionary theory. Many scientists believe 
that such random events are the basis 
for many of the observed differences 
between species,” he says. 

The listing is aimed at A level stu¬ 
dents but its avoidance of technical 
terms should assure it wider usefulness. 
In the listing, the mice should be en¬ 
tered as graphic M. (48K Spectrum). 







i IS 

1; 


1 DIM a $(250) : DIM b(51) 

20 GO SUB 900£) 

24 BORDER 7: PAPER 7: CL5 

c5 PRINT INK 1;"This prograa s 

ittulates a local.population of 

mice. Two types.are found.bla 

CK »ice — £ . and yellow a 

ic ? -7“ INK 6 ' . INK 2; "Th 

5 difference is due to a gene"" 
With two alleles- YtblacK.' is"'" 

dominant over y lye l lo») ,.TKie 

means that. yy -- black"'" y 

a -- black"’" yy __ yellow-- 

be K yv ; 5?*v5 r 3 ^ ® ouse could 
be Y Y, or Yy, a carfier of ye? 

•.Yellow alleles can hide i 

n biacx.mice!. ink 0; inuer 

SE 1; " Press any key to continue 

25 IF INKEYS=”" THEN GO TO 26 
27 CLS ; PRINT INK 2; "You may 

follow the changes in.this pop 

ulation during up to 60 "'”genera 
lions."'' INK 1;"Each generation 

the population. will at first 

double- But not "'"a l l can surviv 

e- You will be.asked to fix th 

s maxiaim numbers .capable of s 

urviving." 

23 PRINT INK 2; "Three sxtuati 

ons are possible,.selection ag 

ain$t yellow.. i - e-- black a 

ore fit to survive.selection a 

gainst black .. i-e. yellow 

more fit to survive"-"or no seie 
ction .. i-e. both types equ 

3v 29 PRINT INK 2;“YOU can try an 

y of these/.and if you have se 

i prtion you"'"may determine 
■■ ■ INK 0 INVERSE 
Press any key t o start. 

30 IF INKEYS="" THEN GO TO 30 
4-0 BORDER 7: PAPER 7: CL 3 
50 PRINT PT 7/0; INK 2;"Input 

the maximum population that th 

e enviroment can hold. lean be 

up to 125)" 

52 INPUT P0: IF pDil OR PG>12S 
THEN PRINT INK 0; ""Must be bet 

ween 0 and 125GO TO 52 

55 CL5 : PRINT AT 7,0; INK 1;" 
selection could be Rgainst 

yellow INPUT 0. Against bl 

ack INPUT 1. Or no select 

ion INPUT 2” 

57 INPUT d: IF d < >0 AND dol P 
ND d < > 2 THEN PRINT INK 0; ""Must 
b€ 0, 1 or 2"; GO TO 57 

53 IF d =2 THEN GO TO 75 

60 CL5 : PRINT AT 7,0; INK 2;" 

Uhat is the strength of . select 

ion measured as a i 100 ;.; w 

ould mean that the unfit. type 

is lethal). Input a number up 

to 100" 

62 INPUT S?; IF SP<0 OR SP>100 
THEN PRINT INK 0,"“MUSt be betw 
een G and 100": GO TO 62 
70 LET S =100 —SP 

75 CLS : PRINT PT 7.0; INK 1; " 
Ubat is the starting K of"'"ye l l 

ow alleles? (%y>"''"(Reme®be 

r that many will .be hidden in 

black Bice!) .Input a number u 

p to 100" 

- k . 7 £r^^S LI T y IF y<0 DR y>i00 th 
CN PRINT INK 0'' "HUS t be 
3 and 100": GO TO 77 
100 LET n =1: LET P=P0 
110 LET y=yyl00; LET b < 1)=y 

200 LET S b = 1: LET sy=l; 

THEN LET sy=sxl00 

201 IF d=l THEN LET S b =S .-'IOC 
215 BORDER 7: PAPER 7: CLS 
2fe LET n=n+l. GO SUB ICOO 
265 GO bU6 2000 

TO 6 1i 0 F 0=51 THEN PfiUSE 120: GO 

270 POKE 23692,255 
260 PRINT BRIGHT I; INUERSE 1; 
INK^B;"PRESS M FOR MORE Tg FOR G 

235 GO SUB SOOO 
290 IF IJ="m" OR 
TO 215 

?0®3^ i * = ” 9 " ° R 
305 GO TO 235 

310 GO sue 6000 

311 GO SUB 5000 
■315 IF i $ = "* " 

TO 215 

320 IF i*="n" 

TO 4.0 

325 IF i $="s" 

PER 7; STOP 
350 GO TO 311 

1003 PRINT AT 0,7; INK S, BRIGHT 


between 


IF d=0 


i$="M" THEN GO 
it* = "G" THEN GO 


OR 

i$="M" 

THEN 

OR 

iS="N" 

THEN 

OR 

iS="S" 

THEN 


;n-l; ") " 

-'OR f =1 


THEN 


ws • 


0.7; IN 
NOT ALL 


t • . 
* 


1 ;"NEXT GENERA!ION 1 , 

1005 LET ym=0: LET Cd=G: . 

TO 2*P 

1010 LET X=RNO: LET v=RNC 
1020 LET z= lx>=y> + iv>=y) 

1030 LET Cd =Cd +Z 
104.0 lST a$m =5TR$ <z ) 

104-5 LET i = 0 : IF aSlf)="0 
~ET i=6: LET yprymtl 
104-S PRINT INK i ; "a 
1050 NEXT / 

1060 LET y= llip-cd) /(4 *p) 

1065 PRINT PT 19,0; INK 2; BRIGH 
T i;ya;" yellow mice out of ";t2 
*P) ' (4fp-cd ) ; " yellow alleles ou 
r_ r> f "; JA *0 i 

107© RETURN 

2000 PPUSE 150: PRINT PT 
K 2; BRIGHT 1; FLPSH 1; " 

CPN SURUIUE " 

2005 LET PS=2iP. LET bro=2*p-ym: 

i~E« = --ET yml=ym 

2006 LET r ip0/(Sb«bffltSw«yBi) 

2007 IF f >1 THEN LET r=1 
2010 FOR F =1 TO 2iP 
2063 LET X=RND 

fIf. S < f -* > " O " RND (x >r*Sb 

)) T HEN uET Cd=Cd-L'AL (a$lf)) ; L 
= T bttl=b»l-l. LET 3 $ i / .1 = " d " ; LET 
PS=ps-l: PRINT " 

="0") PND (x > r ssy 

l I HE ; N Jr ET y - 1 =y a 1 - 1 - LET SSlf) 

= H : LET ps=ps-l: PRINT 1 ; 

=075 IF atif) <>"d" THEN PRINT OU 
ER 1; INK 3;" 

2030 NEXT f 
2082 PRINT PT 20,31;" " 

2033 PRINT PT 0 , 0 ;” 

«» 

2024 IF bffl=0 THEN PRINT PT 19.0; 
*• 

b ® >,? THEN PRINT PT 19,0; 
^pRIgHTl; INK 2;bffl1; BLPCK 5U 
R ^ I .^ Er> TROM "; bm; INK 1;TPB 123) 
A INT ll00jb*l/bB*,5) :"X" 
cSoo Ir- ym >0 THEN PRINT PT 20 . O ; 

BRIGHT l; ink 2;yal;" YELLOUSU 
RUIUED FROM ";y«.; INK l.TAB 126) 

: INT ( 200*yic l,-'y m + .5) ; "V." 

2090 LET y=12tps-cd) / I2*ps) : PRI 
NT BRIGHT 1; INK l;"%y=";(INT (y 
*1000 *-5))✓10;" (Last Gsnerati 
on ="; (INT (b(n-l) *l000 + .5))/10; 

%% j «» 

2095 LET b (n) =y 

2095 LET p=p0: IF ps<=p0 THEN LE 

T p =ps 

2IGG RETURN 

5000 IF INKEY$="" THEN GO TO 500 

G 

5020 LET I $ = INKEY $: RETURN 
5000 BORDER 1: PPPER 1: CLS : IN 
K 7: PLOT 47,156: DRPU 0.-120: D 
RPU 2G0.0 

501G FOR f =36 TO 156 STEP 24: PL 
OT 45, f: DRPU -3,0; NEXT f 
5020 FOR f =47 TO 247 STEP 40; PL 
OT f,36: DRPU 0,-4; NEXT f 
5330 PRINT PT 9,0,"Xy ";PT 2,2;"1 
GO”;PT 5,3;"30";PT 8,3;"60";PT 1 
1,3;"40";PT 14,3;"20",PT 17,4;"0 


5040 

30 
t i on • 


PR INT 
40 


PT 16,6;"0 10 20 

50",pt 19 , 15 ;"Genera 


INVERSE 1;"Po 


5050 PRINT PT ,1.6; 

Pulation aax. ”;p 0 

5060 IF d=2 THEN PRINT PT 0,10; 
INUERSE l;"No selection 
0070 IF d =1 THEN PRINT PT 0,2; X 
NUER3E l;INT csp>;"% selection a 
gainst black" 

5000 IF d=0 THEN PRINT PT 0 ,1; I 
NUERSE l; int (sp);"X selection a 
gainst yellow" 

6100 PLOT 46,120*b(1)*36: DRPU Q 
UER l;3,0 

5110 FOR f =2 TO n: PLOT OVER 1; 4 . 
2*4*f,120*b( f) *36: NEXT f 
6115 IF n =52 THEN GO TO 6200 
5120 PRINT PT 20,0, INUERSE 2;**P 
ress m for more"'"n for new star 
t, s to stop" 

6130 INK 0: RETURN 

6200 LET n =1: LET b(13=y 

S ^10 PRINT PT 19,0; INUERSE 1, F 

»_PSH 2, GPPPH FULL "* FLPSH 0; "P 

• essing s continues run, but. r 

Sfat f iNK% ap ^G™ e " run ' s=s,op) " 

? 000 DfiTfl 0..5IN 00002001,BIN 000 
-?^ 1 Si SXN 00111110,BIN 01111100, 

, 01111100, BIN 10000000, BIN 11 

9010 FOR f =0 TO 7 
9015 REPD gr 
9020 POKE USR "m"♦f,g r 
NEXT f. RETURN “ 


9025 
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C ATCH the fleeing inhabitants of 
a blazing tower block and direct 
them towards the ambulance. 
Fire was written for the 16K ZX-81 by 
C Robson of Cowley, Middlesex. 


1 

FAST 


195 FOR C-l TO 4 

550 PRINT AT 10/10; "GAMEC i»P )0V 

2 

RAND 


290 PRINT AT l6,PX;"Ci*P 9e 2*9 

ER";AT 12,10;"SCORECisP Xi*P >"; 

10 

LET AS""0505060709121512100 

6 : 9r'isP>" 

SCORE 

9101215100*1011121314" 


210 LET BCO-BCO+I 

560 GOSUB 2040 

15 

LET FIRST-1 


220 LET K«*INKEY* 

570 GOTO 60 

20 

DIM A<20) 


225 LET PX-PX+Cl AND K*-'8 H AND 

600 PRINT AT 14.25;"C5*i*P>" 

30 

FOR C-l TO 20 


PX<19 >-C1 AND K*-"5" AND PX>6> 

620 LET SC0RE-SC0RE+1 

40 

LET RCO-VfiL A*<2*C-l TO 

2* 

238 IF SCO—1 THEN GOTO 400 

800 LET SCO—l 

O 



240 LET BY-AC BCO> 

810 LET OCO-0 

50 

NEXT C 


250~LET BX-SCO+BCO 

820 LET B<C>-0 

60 

DIM SC 4 ) 


260 PRINT AT BY/BXi"<l*>" 

1000 NEXT C 

65 

DIM 0< 4 ) 


270 PRINT AT OCC>,BX-1;“Ci»P>" 

1010 GOTO 195 

70 

DIM BC4> 


275 LET UCO-BY 

2000 LET FIRST-0 

80 

LET SCORE-0 


276 PRINT AT 16,PX;"CisP 9e 2*9 

2010 PRINT AT 4,10; "C 3*1*' isP ' Fi 

90 

LET DEAD-0 


6 : 9r ! i*P >" 

re-isP 3*1*>" 

100 

FOR C-l TO 4 


277 LET K*-INKEY* 

2020 PRINT AT 6/6;"use the cur*o 

110 

LET SCO—1 


27e LET PX-PX+C1 AND K*-"8" AND 

r key* S-*-8";AT 7,6; "to wove the 

112 

LET OC C >«0 


PX<19 >-C1 AND K*-“5“ AND PX>6> 

sheet ! i< ; 9e 2*96 9r■i>" 

115 

LET BCO-0 


280 IF BY-15 THEN GOTO 500 

2830 PRINT AT 9,6/"and 9et the P 

117 

NEXT C 


290 IF BCO-20 THEN GOTO 600 

2030 PRINT AT 9/6;"and 9et the P 

118 

LET S<1)-INT CRND*5+5> 


300 GOTO 1000 

eoPle";AT 10,6;"safely to the am 

120 

FOR C-0 TO 21 


400 IF RND<-.9-SCORE*.05 THEN G 

but*nee" 

130 

PRINT AT C/0/"C30*isP>“ 


OTO 1008 

2040 PRINT AT 14,6;"Presa ana ke 

140 

NEXT C 


410 LET SCO-INT CRND*5+5> 

y to start" 

150 

FOR C-5 TO 19 STEP 2 


420 LET B< C )»0 

2050 IF INKEY*-"" THEN GOTO 2050 

160 

PRINT AT C/1/" C96^ 96> 

“ / A 

430 PRINT AT 4,6;"help";AT 4/6; 

2060 IF INKEY*< >“" THEN GOTO 206 

T C+1,1;" <97- 97> " 


"< 4*1 *P >" 

0 

170 

NEXT C 


440 GOTO 1000 

2070 FOR 0-4 TO 14 

180 

PRINT AT 16/25;" <94> M 

;AT 

500 IF BX-PX+2 OR BX-PX+3 THEN 

2088 PRINT AT 0,6;"C24*isP>" 

17 / 25 / " <92^9e 97 AT 18/ 

25; 

GOTO 1000 

2090 NEXT 0 

M 

";AT 19/25;"<isP■i*'x*P 

• l* 

510 PRINT AT 15.BX;"ouch "j AT 15 

3000 RETURN 

y 




5000 CLEAR 

190 

LET PX-7 


520 LET DEAD-DEAD+1 

5810 SAVE "FIRe” 

191 

SLOW 


530 PRINT AT 1,DEAD; "C l*>" 

5020 RUN 

192 

IF FIRST-1 THEN GOSUB 200O 

540 IF DEAD<4 THEN GOTO 800 
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i 


i 


D 1 FAST 
2 CL3 

5 DIN S<2> 

10 DIM ASK 8,10 > 

15 DIM fl<e> 

20 DIM D*<8, 10 > 

21 DIM M<2,8,8> 

25 DIM D<S > 

30 FOR N=1 TO 8 
40 FOR H~1 TO 5 

60 LET AS< N,2YH—INT <RND>.5>>= 
"< isP )" 

65 LET DS<N,2*H-<RND>.5>>="<is 

P >" 

70 NEXT H 

71 LET H-2+1NT <RND*18> 

72 LET A*<N>=AS<N,H TO >+R*<N, 
1 TO H-l> 

78 LET H=2+INT <RNO*10> 

74 LET D*< N >*D®< N, H TO >+D*<N, 
1 TO H-l> 

75 LET A<N)=INT < RND*3 > 

76 LET D<N>’INT <RND*3> 

8Q NEXT N 

80 SLOW 

100 FOR N~1 TO S 
HO PRINT AT 2*N,4j 
120 FOP M^l TO 8 
130 PRINT “< isP V+CHRS <128*<AS 
< N» M " ?+131 *<D*<M,N>« h " AND 

n*<N,M>-"< isP >" >>; 

140 NEXT M 

141 FOR D*0 TO rt<N> 

142 PRINT "< isP £P y'i 

143 NEXT D 

150 FOR D~1 TO D<N; 

151 PRINT AT 16+2*D,2*N+3;"<isP 
>" 

152 NEXT D 
160 NEXT N 

170 LET 3< 1 >*6 
180 LET S<2>=8 
200 FOR M-l TO 8 
210 FOR P^l TO 2 
220 LET X=1 
230 LET Y-1 

270 PRINT AT 2*Y-1,3+2tX;CHR* < 
23+128*<M< 1,X,Y><>M<2,X,Y>>> 

280 GOSUD 2500 
305 IF C—11 THEN GOTO 290 
307 PRINT AT 2tV-l,3+2*X;CHRS < 
307 PRINT AT 2SY-1#3+2*X;CHR* < 
28*< M< H X, Y >< >M< 2, X, Y > >+M< l.X, Y> 
+I*K2/X, Y )> 

310 LET Y*Y—< L > w &>+< 0^2 > 

320 IF Y<1 THEN LET Y-l 
330 IF Y>8 THEN LET Y-8 
340 LET X*X-K D*6 >-< D®4 ) 

350 IF X<1 THEN LET X-l 
360 IF X>8 THEN LET X=8 
370 GOTO 270 

390 IF D*< X/ Y )+A*< Y, X )“*'< 2*lsP ) 
" OR M< LX/YX>M< 2, X, Y ) THEN GOT 
0 280 

40O PRINT AT 2*Y-1»3+2*X;P 

405 LET M(P/X» Y )™P 

410 NEXT P 

42Q NEXT M 

500 LET X-0 

510 LET Y-0 

520 LET P-l-KP-l) 

530 PRINT AT 2*Y,3*2*X; 

540 GOSUB 2300 

565 PRINT AT 2*Y.3+2*Xi" " 

570 IF <<D»2 OR D-8> AND X> OR 
<<D»4 OR D“6 > AND Y> THEN GOTO 7 
00 

580 LET Y-Y+<D"2>*<Y<8>-<D«8>*< 
Y>Q> 

59Q LET X"X+< D*6 >*< X<8 )-< D*4 )*< 
X>0> 


A BOARD is displayed, compris¬ 
ing horizontal and venical 
strips, each with several holes 
in it. Each strip can be moved to three 
positions and the markings at the bot¬ 
tom and right-hand side indicate where 
they start. 

If a horizontal strip has a hole in the 
play area it is showrn as a gap in the line. 
If a vertical strip has a hole in the play 
area it is visible only when it coincides 
with a hole in the vertical strip, in 
which case it appears as a hole. 

The game begins with the two play¬ 
ers taking turns to set their numbers on 
the board. Player one moves the cursor 
with keys 2,Q,W and A and sets a 
number with Z. Player two moves the 
cursor with 0, 0,P and L and sets a 


number with. When each player has set 
eight numbers the cursor will move to a 
slightly higher position on the screen. 
Players must then take turns to choose a 
strip to move. The cursor then moves 
along the left and top of the board, so 
that a control key in line with the edge 
will move the cursor, and a control key 
in line with a strip will move that strip, 
line with a strip will move that strip. 

When the strips are moved so that a 
number stands on a hole it will fall 
through and vanish. The object of the 
game is to remove all your opponent’s 
numbers. 

Fall Through was written for the 
16K ZX-81 by R Entwistle a nd so n of 
Cheltenham. S' 


OW 1 - 

a:: ■::/-} 


m 


// m 




X' 


s'o 1 
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1061 LET M<1,N,Y>=0 

1062 LET S<1>-S<1>-l 

1065 IF HOT M< 2, N, Y > THEN GOTO 1 
070 

1066 LET M<2,N,Y>=0 

1067 LET S< 2 >=S< 2 >-1 

107Q PRINT RT 2*Y-1,3+2*N;" " 
1088 NEXT N 

2000 IF S(lX-0 OR S< 2 X =0 THEN 
GOTO 202O 
2010 GOTO 50d 

2020 IF S< 1 ><=0 THEN PRINT RT 20 
,0;"PLAYER 1 HRS LOST" 

20-30 IF S< 2 ><=8 THEN PRINT RT 21 
/0;"PLAYER 2 HRS LOST" 

2040 PRINT RT 0,10;"PRESS N/L TO 


REPLAY" 

2050 INPUT K* 
j:060 RUN 

2500 LET K*-INKEY* 

2510 IF P=1 THEN LET 0»2*<KS="fl" 
>+4*< K*“"Cl" >+6*<KS-“U" >+8*< K*-"2 
" >+11*< K*-"2" > 

2520 IF P=2 THEN LET 0=2*<KS—L" 
«+4*< KS="0" >4■b*<K*="P ,, >+8*< KS="0 
" >4-11*< KS—“. " > 

2530 IF NOT D THEN GOTO 25O0 
2540 RETURN 
3000 CLEAR 

3010 SAVE "FAIL THROUGh" 

3020 RUN 


1 > 

970 LET A<Y>-R<Y>-1 
1000 FOR N-l TO 2 
1010 PRINT RT 2*Y,2*N+20;CHRS <1 
28*< N<-A<Y>>> 

1020 NEXT N 
1030 FOR N-l TO 8 
1040 PRINT RT 2*Y,3+2*N;CHRS <12 
8#<RS<Y,N>»" H >+13l*<DS<N,Y>=" '* 
AND A$< Y,N>-"< isP >•• >>; 

1050 IF DS< N, Y >—*' " OR RS<Y,N>«‘ 
" THEN GOTO 1080 
1068 IF NOT M<1,N.Y> THEN GOTO 1 
065 


A STRING of random characters is 
printed at the top of the screen 
and one of them also appears at 
the bottom. Using the keys “Q”—left, 
“E”—right, and “P”—fire, you must 
shoot the character from the string at 
the top. 

Your time to achieve that is limited 


and decreases after each shot. When the 
inverse “X” reaches the right of the 
screen your time has expired. The game 
ends when you miss for the third time. 

Alpha Attack was written for the 
16K Spectrum by Laurence Wood of 
Northampton. 


6O0 GOTO 
700 IF HOT X THEN GOTO 704 
781 IF <0-2 AND D< X>-2 > OR <0-8 
AND 0< X >«0) THEN GOTO 530 

704 Ih NOT Y THEN GOTO 710 

705 IF <0=4 AND R<Y>-0> OR <0-6 
AND A<Y>-2> THEN GOTO 530 

710 IF 002 THEN GOTO 750 
720 LET DS<X>=DS<X, 10>+D*<X, 1 T 
0 9> 

730 LET D< X >-D< X >+l 

749 GOTO 80O 

750 IF 008 THEN GOTO 900 

760 LET DS<X>-DS<X,2 TO >+0*<X, 

1 > . 

770 LET D<X>=D< X >-l 
800 FOR N=1 TO 2 
810 PRINT AT 2*N+16,2*X+3;CHRS 
<128*<N<-D<X>>> 

820 NEXT N 
830 FOR N=1 TO 8 
840 PRINT AT 2*N,3+2*X;CHRS <12 
8*<fl*<N,X>-" " >+l31*<DS<X,N>=" " 
AND RS<N,X>-"< isP >" >>; 

850 IF DS<X,N>-" " OR fl*<N,X>-“ 
" THEN GOTO 880 

059 IF NOT M<1,X,N> THEN GOTO 8 
65 

060 LET S< 1 >-S< 1 )-l 
861 LET M<l,X,N>-0 

865 IF NOT M< 2, X, N > THEN GOTO 8 
70 

866 LET M<2,X,N>-0 

867 LET S< 2 >-S< 2 >-l 

870 PRINT AT 2*N-1,3+2*X;" " 

080 NEXT N 
890 GOTO 2000 
900 IF 006 THEN GOTO 950 
920 LET fl*< Y>-RS<Y, 10)+fl*<Y, 1 T 
0 9) 

930 LET A< Y >-fl< Y >+l 

940 GOTO 1000 

950 IF 004 THEN GOTO 2000 

960 LET AS< Y >-BS< Y,2 TO >+RS<Y, 


9 PRINT RT 10/ 10; ”Rr»y key": p 
RUSE 0 

10 LET y=40 - LET j=2- LET n=0 
LET s=0 LET 1=15 
20 CLS 

30 BORDER 6 PAPER 7- INK 1 
40 CLS ' IF m=3 THEN GO TO 580 
50 FOR f«3 TO 25 
60 PRINT RT 3/f;CHRS <<RND*100 
>+27 > 

70 NEXT f 
75 LET y-y+2 
80 GO TO 180 
90 FOR t-y TO 100 
100 IF t>70 THEN PRINT RT 5,t-7 
0s "< aP ix > '* 

110 BEEP .009/fc-40 

120 PRINT RT 20.1;"<sP : i96 : it 9 

6 sP )" - 

~T$8 LET l-l+CINKEYS«"e">-<INKEY 

i » 0 >-< 1-28 > 

140 IF INKEY«="P" THEN BEEP .00 
5,10: BEEP .007,3- GO TO 220 
150 NEXT t 
160 BEEP 1,-50 


170 LET m-m+1’ GO TO 40 
180 LET aS-SCREEN* <3,INT <RND* 
20 >+ 3 > 

190 PRINT RT 0,22;"SCORE- ";s;R 
T 0,0;"Misses' ";ro 
200 PRINT RT INT <RND*10>+10,IN 
T <RND*30>;*S 
210 GO TO 90 

220 FOR z-19 TO 4 STEP -1« PRIN 
T RT z,l+2NEXT z 
230 IF SCREENS <3, !+2><>aS THEN 
BEEP .2,-30: BEEP .2,-60- LET m 
-ro+1 GO TO 40 
240 LET s-s+1 

250 BEEP .01,10- BEEP .01,20 
260 GO TO 40 

500 BEEP .7,-30: BEEP .7,-60- C 
LS 

510 PRINT RT 10,9; FLASH 1;" Th 
ird miss ! "; FLASH 8;AT 2, 11?"S 
core - ";s;AT 13,5;"Rny key to P 
lay a9air»" 

520 PAUSE 9 
538 GO TO 10 


m 


40 
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T HE OBJECT is to collect as 
many honeypots as possible from 
the tree on the left of the screen. 
To get a honeypot you must jump over 
the rolling boulders, the hole and the 
wall. Once you are under the honeypot 
it will fall down to you. Move left with 
“5”, right with “8” and jump with 
“ 0 ”. 

Snuffles was written for the 16K 
ZX-81 by J Hallett of Helston, Corn¬ 
wall. 


6 LET Y”23 

7 LET F-C 

10 LET R$< 1 >•=■'•< 2*sP 1 4*9h • 2-tsP > 

ii 

11 LET -C*9h»sP V* 

12 LET fW3>*"<3*9h>" 

13 LET m<. 4 >*"< SP *- 6*9h * sp >" 

14 LET fi*<5 >»"< 2*sP■4*9h* 2*sP> 

15 LET R'*<6 "< 3*sP■98■95 *3*sP 

1 £ LET R$< 7 )=■“< 3*sP • 93 * 95 • 3*sP 
y« 

17 LET fl*<8>» ,, <3*sP * 98 * 95 *• 3*sP 

y 

18 LET A*< 3 >= "< 3*sP • 98 : 95 • 3*sP 

19 FOR N=1 TO 3 

20 PRINT R$<N> 

21 NEXT H 

22 PRINT RT 9,O; M <16*97 *sP•14* 
97 V 

23 LET X=8 

24 PRINT RT 4,4;"U" 

25 PRINT RT 8,F;" 0“ 

26 LET IINKEY* 

27 IF I*= M 5" THEN LET Y~Y-1 


30 IF I*="6" THEN LET Y«Y+1 

31 PRINT RT X, Y;" 8 

32 LET F=F+1 

33 PRINT RT 8,11;"<95>“ 

34 IF X=8 RND Y=19 OR Y»F THEN 
GOSUB 1000 

35 PRINT RT X-1,Y; M 

36 IF F>=25 THEN LET F=6 

37 IF Y=15 AND X»8 THEN GOSUB 
2900 

38 IF Y=5 THEN GOSUB 3000 

39 PRINT RT 8,25;" 

40 GOTO 23 

1000 PRINT RT 10,10;"SPLAT.SCORE 
= "; SC 
1020 STOP 

2000 PRINT RT X,Y;" ";RT X+ 

1,Y+1;"8";RT 10,10;"RRRGH.SCORE* 
"; SC 

2020 STOP 

3O00 PRINT RT 4,4; "<9h.V; RT 8,5; 
"U" 

3018 PAUSE 100 
3020 LET SC-SC+10 
3030 CLS 
3040 GOTO 5 
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M ONEY BAGS was written by 
R Smith of Scunthorpe, South 
Humberside. Race from your 
starting position to the “H”, jumping 
the barrels using “K” and jumping for 
the money bags to collect extra points. 
Use “M” to go straight ahead, and “Z” 
to go backwards. You score in pounds 
and gain an extra life on accumulating 
£1,500. 

Money Bags is for the 16K Spec¬ 
trum. 


1 PAPER 0: INK 4: BORDER 0-C 
LS 

2 GO SUB 120 

3 LET hi=3S00- LET h*="3PECTR 

UM" 

4 POKE 23658,0 : LET 1-3= LET 

LET t-0 

5 LET a.-1+INT <RND*28>- LET y 
-19* LET x-0 

6 CLS 

7 IF t>-100 THEN PRINT RT 2, 
31 ) “to¬ 
la PLOT 0,15- DRAW 255,0 

20 PLOT 0,87- DRRW 255,0 
30 PLOT 0,135= DRRW 255,0 
40 FOR n-U TO 19- PRINT RT n, 
*; INK 2;"c"' NEXT n 

50 FOR n-5 TO 10= PRINT RT n,< 
*x*+10>; INK 2; "c" ■ NEXT n 

55 PRINT INK 6;RT 3,<a/a+15>; 
"fab" 

60 GO SUB 250 
70 PRINT RT 3*31;"H" 

80 IF RND>.3 THEN GO SUB 200 
90 PRINT RT 0,0;“Money=*";t;" 
Lives.-"; l ‘ "Hx icore-* 1 ;hi; " By 
";h* 


100 PRINT RT 18,a-1;" M ;RT 19 
,aj" “;RT 9,<a/a+9>;" ";RT 10 
,<a/a+10>;" INK 2;RT 10, a; 

"' TRB a;"i:‘;RT 9, < a/a+10 >; *£?' TR 
B C*/a+10 • GO TO 60 
110 PRINT RT y,x+l;"b M = LET t-t 
+ 10O' BEEP .01,0 BE^P - .01,2- BE 
EP .01,4 GO TO 5 
120 FOR n-USR "a" TO USR ,, c ,, +7 
130 READ a- POKE n,a = NEXT n 
140 DATA 56,56,56,16,124,16,40, 

108.126.60.102.219.143.223.195.1 

26.129.255.129.123.129.255.129.1 
29 

150 RETURN 

200 LET b-y * FOR n=30 TO 1 STEP 
-1- PRINT RT b,n;" 0 "- GO SUB 
250 : NEXT n 
210 RETURN 

250 IF INKEY*-“k" THEN LET y=y 
-1* LET a*-"k"' PRINT RT y+l,x;" 

W 

251 IF SCREEN* <y ,x+2)= ,, 0" THEN 
LET 1=1-1- BEEP .5,50 

252 IF t-1500 THEN LET l«+l 

253 IF RTTR <y-l,x+l>-2 THEN L 
ET y-y-3’ GO TO 253 


254 IF RTTR <y,x+2>-6 THEN LET 
t-t+50 = BEEP .1,0 

255 IF SCREEN* <y-1,x+2>-"H" TH 
EN GO TO 110 

256 IF I< —0 THEN GO TO 300 
260 PRINT RT y,x;" a " ; RT y-l,x 

- 1 ;" ” — 

270 IF a*=“k" THEN LET x-x+1« 
LET y-y+1- LET a*-" " 

280 LET x-x+<INKEY*="m" AND x<2 
9>-< INKEY#="z" RND x>l > 

290 RETURN 

300 CLS = POKE 23658,8 
310 IF t>hi THEN LET hi-t' PRI 
NT RT 10,5; FLASH l;"YOU HAVE TH 
E HIGH ";RT 11,5; INVERSE 1 j"SC 0 
RE! PLEASE ENTER YOR NAME AFTER 
THE TONE."- PAUSE 100' BEEP 1,-1 
0- INPUT h* 

320 CLS - PRINT RT 6,6;"Your sc 
ore=£";t"TAB 8;"Hi9h score»£";h 
i''TRB 10;"By “; FLASH l;h* 

330 INPUT '"'"Another 90 CY/N> 
";b* = IF b*-"Y" THEN GO TO 4 
340 IF b*< >"N" THEN GO TO 330 
360 STOP 


12 


SINCLAIR PROGRAMS February 1984 




OL ARE involved m a desperate 
shoot-out with the Gangsters in 
a car park. Faces appear in the 
darkness and you must shoot them with 
key “ 0 ”. P J Irwin, of Bembridge, Isle 
of Wight, who wrote the game for the 
16K Spectrum, says that anything more 
than 70 is a good score. 


3 L-tr FN n*x,y <x-y 

> V2 

5 DEF FN u<. >*-C65536*P£hK 2367 
4+'2Sfi*REEK 236734-PEEK 23672 V5G 
7 DEF FH t< >-FH w<FN u< >/FN u 

i '• ) 

9 LEI hs*0 

1(1 PAPER 0- BORDER 0 INK 5’ C 
LS 

15 cu sub yeoo 

20 INPUT "Instructions 'ENTER 
' for y«>"j LINE »* IF CODE 
a*-t21 OR CODE 3.%-- 89 THEN CO SUB 

SO0 

30 RESTORE 200 DIM a<32>' FOR 
f’2 TO 30 STEP 2 READ Kf) NE 
XT f 

40 INPUT "'ENTER' Level <5-har 
d to 1-easylev IF lev<l OR l 
*v>5 THEN CO TO 40 

SO LET ui-0 LET x-4 LET sc^O* 
LET c“-l LET 9-15 
60 PAPER O BORDER 0 INK 5- C 
LS 

70 CIRCLE 23B.08/8• CIRCLE 238 
.80,1.5 

80 PLOT 250.113- DRAW -5,-5' D 
RAW -25,0- DRAW 0,-20 DRAW 6,0' 
DRAW 24,0,-3.3 

90 INK 6- PLOT 148,100- DRAW 3 
2.0,-0.0- DRAW -32,O,-0.8 DRAW 
0,-48- DRAW 32,0,0.8- DRAW 0,48 
100 PRINT AT 12/19/“ 01 l" 

110 INK 4 PLOT 0,119 DRAW 82. 
O' DRAW 0,-8- DRAW -32,0 DRAW O 
,-0 DRAW 32,0 DRAW 0,-8’ DRAW 
-32.0- DRAW 0,-0- DRAW 32,0- ORA 
W 0,24 

120 PLOT 8,119 DRAW 0,-8 DRAW 
0,0 DRAW 0,-8- DRAW - 8,0 DRAW 
0,-8 DRAW 8.0- DRAW 0,-8 
l30 PLOT 24,119- DRAW 0,-8 PLO 


T 24,103- DRAW 0,-8 
148 INK 2- PLOT 64,40 DRAW 48. 
0.-2.5 

150 POKE 23674.0- POKE 236/3,0- 
POKL 23672,0 

160 INK 3 PRINT AT 2.11; INK 7 
short rut'" 

170 FOP x-l TO 3 BEEP .05,58' 

PAUSE 5 NEXT x- __ - 

ISO PRINT AT 18,15; INK 2; 

190 PRINT AT 21,3; INK 5;”‘Score 
PRINT AT 21,21; INK. 5; M Hi9h 

. H 

208 LET 4—FN t<V IF 4>60 THEN 
.0 TO 900 

210 LET f-9-< INKEY*- ,, 5" AND 9>0 
>+<INKEYS-"S" AND 9<3l > 

228 IF f<>9 THEN PRINT AT 18,9; 

•• M 

280 IF f< >9 THEN PRINT AT 18,f; 
INK 2 j"JL“ LLT 9-c 
240 IF INKEYS--0- THEN CO SUB 7 
50 

250 IF sr>hs THEN LEI hs-sc■ LB 
T w-1 

260 PRINT AT 21.9; INK 5;sc PR 
INT AT 21,26; INK 5; FLASH w;hs 
500 LET c~i~* 1 IF c-23-lev*3 TH 
EN LET ( 0 PRINT AT a.<x>,x; PRP 
ER 0;“ " 

510 IF C-0 THEN LET x~INT <RNDt 
15 '*1 LET x-x*2 PRINT AT a<X>, 
x; “A” 

53T GO TO 200 

750 IF 9 X s x THEN BEEP .5,-20 R 
ETURN 

760 FOP C“7 TO O STEP -1* PRINT 
AT a< x >, x; INK c. "A" - BEEP .05, 
cTlNT CRND*?>M NE>Tr c 
770 PRINT AT a<x>,x; PAPER 0;“ 

M 

7G0 LET sc-sc 4-lev • RLTljRN 


800 INK 6- CLS PRINT "The ldc 
a of the 9aroe is to shoot"""The 
outlaws MV who aP p car"" “frorn 
heh 1 nd the wa 11 , car, rock “'' ” a rid 

oil aruM, by rnovinS uour 9un" 

805 PRINT '" 'B' usin9 the curse 
r keys 5 5 8"' ’"Fire usir.9 '0' • 


your score is 
our level" 


’dePende-nt on y 


BIO PRINT '"Note that it is not 
•lesessari ly" " "Possible to hit 
every twe"" "You have one rninu 
te""'" p,^oss 'ENTER' to star 
f 

820 LET a*-INKEYS IF CODE a*~l 
3 THEN RETURN 
830 CU TO 820 

900 FUR x-0 Tij 21 PRINT AT x,0 
OVER 1■ INK 7;"< 32¥isP >" BEEP 
.01, x*2 ' NEXT x 

910 PRINT AT 19,11, FLASH 1; PA 
PER 7; INK 4;"Cane over" 

920 PRINT AT 21,3; PAPE'R 7; "Sco 
re-“;sc 

930 PRINT AT 21,21. PAPER 7;"Hi 

9h ";he 

940 INPUT "Another 9o?<'ENTER' 
n for no)"; LINE a* IF CODE a*- 
UO UP CODE a*“73 THEN STOP 
350 FLASH 0- CO*TO 40 

20OO DATA 6,8,16,14,13,14,17.10, 

8,7,3,5.6,7,7 

9000 RESTORE 9020 FOP y-USP "a" 
TO OOP "b“ + 7 READ a* POKE x,a- 
NEXT x 
901O RETURN 

•‘020 DATA 238,16,146,16,32,56,13 
0, 124 

•-«' (30 DAI A 8,0,16, 16,56,56,254,25 
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10 REM "E" 

15 LET S®PI-PI 
20 LET fl*VRL "12“ 

25 LET B=PI-PI 
30 LET OVRL "3" 

35 CLS 

48 LET T*S 

45 LET B=B+VRL "2“ 

60 IF B«VflL "16" THEN PRINT S; 
" HITS";X 

55 LET fl**"<2*sP-*9a*i w *9t*sP ; 9 
t • i w ! 9« : sP • 9y 5 i “ • 9t ? sp • 9t. • i u • 9y • 
sp f 9y * i ll *9t *2#sP >" 

60 LET B$*="<2.tsP-9t -i °'9y-SP 9 


y ! i " ! 9fc : sp ! 9t ! i " • 9y • sP 1 9y : i 11 * 9t : 
sp ; 9t*i" ! 9a r 2#sP>" \ 

65 PRINT RT VRL "16",R-VRL "2" 
; "<sP * 93 5 ii : 94 : sP >" 

70 PRINT RT 
75 LET T=T+SGN PI 


. i ti . 


u . 


T HE INVADERS descend slowly, 
speeding as you fire at them. 
Move left with “1”, right with 
“3”, and fire with “0”. How many 
aliens can you hit before you are annihi¬ 
lated? 

81 Invaders was written by Gary 
Shields for the IK ZX-81. 




mens 


00 IF T=VRL "50" THEN GOTO VRL 
"35" 

85 IF lNKEY$-"0" THEN GOTO VRL 
"115" 

90 LET G-RND*VRL "3 

95 LET R-R-K INKEY$-"3">-<INKEY 

=s"l" > 

100 PRINT RT BiCiB* 

105 LET C*C+<<G>-1.5> AND C<VRL 
"7">-< < G<1- 5 > RND C>SGN PI ) 

110 GOTO VRL "65" 

115 PRINT RT B,R;"+" 

120 IF R*<<fl-C>+SGN PIK>"0.">" 
THEN GOTO VRL "65" 

125 LET R$< R-C TO fl-02>«" 

130 LET B5KR-C TO R-C+ 

135 PRINT RT B/fl-SGN Pi;"TTY" 
140 LET S=S+SGN Pi- 
145 IF R$=" 

" THEN GOTO VRL "55" 

150 GOTO VRL "65" 
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20 LET T-120 
50 PRINT RT 15,21J"fl" 

60 PRINT TAB 21j"<inverse sP ac 
*>" 

70 PRINT TAB 21; inverse sPac 

e > " 

80 PRINT TAB 20;"(9raPhic T,sP 

■ace,9raPhic Y>" 

85 PRINT "<inverse sPace,twent 
y two 9raPhic Gs>" 

100 FOR N=0 TO 19 

105 PRINT AT 19,N;"<inverse sPa 
ce >" 

110 LET A*INT <RND#10 > 

120 LET B«INT <RND*100> 

130 PRINT AT 21, Si R+B;" - ";B;" 

a 11 

140 PRINT AT 19,27;Tj" " 

150 LET A**INKEY* 

168 PRINT ,,,A*;"<inverse space 
V AND A**"" 

170 IF A*=»STR* A THEN NEXT N 
130 LET T-T-l 

190 IF N< >20 THEN GOTO 140+<T<0 
>#140 

200 FOR N*=l TO 50 
210 PRINT AT 18,21;" " 

220 PRINT AT 13,21;"V" 

230 NEXT N 
240 POKE 16418,5 
250 FOR N»1 TO 19 
260 SCROLL 
270 NEXT N 


T AKE OFF for the IK ZX-81, 
which was sent by C Robinson of 
Slough, Berkshire challenges 
your mathematical speed and accuracy. 
A rocket is on the launch pad and time 
is ticking away. Fuel must be delivered 
to the rocket along the underground 
pipeline by answering 20 questions cor¬ 
rectly before the time reaches zero. 

If your skill at subtraction is good 
enough for the test the rocket will blast 
into outer space; if not, it will be left 
stranded. Lower-case letters in brackets 
indicate graphics instructions. 



SINCLAIR PROGRAMS May 1983 


27 





milD’ yyx.uuiilltliilil 






10 PRINT AT 10,12;"REBOUND"= B 
EfcT -5,20- BEEP .4,15- PAUSE 150 

• PRINT RT 10,9;"by PHIL WILLCOX 
" BEEP .05,6 BEEP .95,4- BEEP 

.05,2' BEEP .05,0- BEEP .05,4- P 
RUSE 180 

15 RANDOMIZE 

20 PRINT RT 19,9;“INSTRUCTIONS 
? BEEP .1,20- BEEP .1,10 

• PAUSE O 

30 IF INKEY**"y" THEN GO SUB e 
50O 

50 LET hs-0 

60 RESTORE 9000- GO SUB 9000 
70 PAPER O BORDER 5- INK 5- C 
LS 

80 FOR f-0 TO 31- PRINT RT 0,f 
; "< iaP )" • NEXT f 

90 FOR f*0 TO 31 STEP 31 FOR 
9-1 TO 20 PRINT RT 9, f;"<isP>"- 
NEXT 9 NEXT f 
100 LET k-0 


390 IF O-20 THEN LET a*-"D 
ET co*6 “ 

4O0 LET 9-5 

410 PRINT ; PRPER 0;RT 21,1 


100 PRINT RT f,9;"<xsP>" 

190 NEXT 9 
200 LET k-k+1 
210 NEXT f 

220 PRINT RT 12,15;“< 2*i£P >";RT 
13, 14; "<4*l£P >■• :RT 14, 13; “<6tis 
>" >RT 15,12;'*<8txsP >" 

230 FOR f-16 TO 20 FOR 9-11 TO 
20 PRINT RT t',9; "< isP >" - NEXT 
• NEXT ♦' 

240 LET k-10* LET P-21 
250 FOR t'-l TO 10 


420 PRPER 0* INK 7 PRINT RT 21 


430 PRINT INK co;R1 v,h;j.* 

440 IF INKEY*="b" THEN GO SUB 7 
90O- IF 9*30—h THEN GO TO 7100 
450 LET 9*9*K INKEY*-"0" AND 9<9 
>-<INKEYS*"5" AND 9>0> 

460 LET vy-INT <RND*60-c>+1 
470 IF vy<2 THEN PRINT RT v,h;" 
"> LET v—v—1 

480 IF v-12 THEN GO TO 7500 
500 IF RND<.15 RND h<30 THEN PR 

INT RT v,h;. LET h*h+l- GO TO 

410 

510 IP RND<.3 PND h>21 THEN PRI 
NT RT v,h;" "* LET h-h-1 
520 GO TO 419 


260 PRINT RT f ,ki "< lj. >" JRT f.P 
< ib>“ 

270 LET k*k-l’ LET P-P + l 
280 NEXT f 

290 LET k-14- LET P*!7 
30O FOR f«12 TO 15 
310 PRINT RT f, k ; "fi"; RT 
320 LET k*k-T• LEf"T-P+l 
330 NEXT f 

340 LET s*0- LET miss*0* LET c 


350 IF s>hs THEN LET hs-2 
360 PRPER 5- INK O' PRINT RT 0, 
0:"SCORE M ;t,“HI SCORE ";hs;RT 1 
7,12;"ESCAPED ";RT 19,l5;miss 
370 LET h-INT <21*9tRND> LET v 
*21 

3S0 IF c<20 THEN LET - LE 

T co-2 — 


7100 FOR 4-1 TO 3- PRINT RT v,h 
FLRSH 1; BRIGHT 1; INK ! 

EEP .001,50- BEEP .001,40- BEEP 
.001,20’ BEEP .002,1- NEXT 4 
7110 PRINT RT v,h;" " 

7115 LET s-5+5+c*2• LET c-c+! 
7129 GO TO 350 

7500 PRINT FLRSH 1; BRIGHT 1;RT 


120 PRINT RT C,9;"<isP >" 

130 NEXT 9 
140 LET k-k + l 
150 NEXT f 
160 LET k*0 

170 FOR f-1 TO 9- FOR 9-22+k TO 
30 


30 
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v,h;"*"• BEEP .05,-2- BEEP .05,- 
12- BEEP .02,-40 PRINT AT v,hj“ 
"• LET miss”miss+l • 

?505 IF mi&s»5 THEN GO TO 76Q0 
7510 GO TO 350 

7600 CLS • PRINT AT JO,13;"GURRY 
1 ";RT 12,10;"YOU LET TOO";RT 14, 
10;"MANY ESCAPE"' PAUSE 50‘ PRIN 
T AT 5,1;"You scored ";s- FOP f- 
30 TO -30- BEEP . 0025, *' • NEXT f- 
PRINT AT 20.3;"Press ? kev for 
o.rtofh:r go" 

. 7610 PAUSE 0 
7620 GO TO 60 

7900 BEEP .01,1- BEEP .01,15 BE 
EP .01,35 

£000 BEEP .01,1* BEEP .01,15- BE 
EP .01,35 

3010 PLOT 9*8+12,9 - DRAW 0,75+9* 
8- BEEP .01,30- PLOT OVER 1;9*8+ 
12,9- DRAW OVER 1;0,75+9*8 BEEP 
.015,35 

8O20 PLOT 9*8+12,9+<75+9*8V DRA 
W 232-9*16,0- PLOT OVER 1;9*8+12 
,9+<75+9*8>• DRAW OVER 1;232-9*1 

6,0 

8030 PLOT <9*0+12>+<232-9*16>, 3+ 
<75+9*8>• DRAW 9,-<75+9*8>• 8EEP 
.0075,20- PLOT OVER 1J<9*8+12>+ 
<232-9*16>,9+<75+9*8DRAW OVER 
1>0,-<75+9*0> 

8040 RETURN 


8590 CLS - PRINT TAB £;-INSTRUCT 
IONS"'' "Shoot- the s as they 

try to escaPe" *' "Move your coam 
ic cannon with the ~5~ and ~8~ k 
eys, and Press ~b~to "The 

y become Pro9ressively harderto 
hit - but score more Points as 
they do" 

0510 PRINT ""The 9ame ends if v 
ou. let five escape <they dlsa.P 

pear into hyPersPace at a ce 

rtain altitude -Pres 

s a key to Play" 

8520 PAUSE 0 

8530 CLS - RETURN 

6398 RETURN 

9000 FOR f*144 TO 143 

9010 FOR n-0 TO 7- READ 2 

9020 POKE USR CHRS f+n,r NEXT n 

• NEXT f 

9930 DATA 1,3,7,15,31,63,127,255 

9031 DATA 128,192,224,240,248,25 
2,254,255 

9032 DATA 24,24,69,69,60,126,126 
, 126 

9033 DATA 60,126,219,219,126,69, 

66.129 

9034 DATA 129,102,126,60,60.126, 

102.129 

9040 RETURN 


S HOOT THE missiles as they try 
to escape their planet’s atmo¬ 
sphere on the right of the screen. 
If five escape into hyperspace they will 
destroy your home planet and the game 
will end. Your cosmic cannon is situat¬ 
ed on the left of the screen. It moves left 
with “5”, right with “8”, and fires with 
“B”. Its shots travel upwards, hit the 
top of the play area and ricochet down 
on the right. Skill is needed to aim them 
correctly. 

Rebound was written for the 16K 
Spectrum by P J Willcox of Ely, Cardiff 
and is this month's program of the 
month. Willcox works in a local hospi¬ 
tal and bought his Spectrum primarily 
for his children to use. He found the 
games which could be played on it 
captivating and began to write his own. 

In the future he would like to write a 
program which would provide complete 
horoscopes. After that his plans are 
more optimistic. He would like to learn 
machine code and write a program 
which would make his fortune. 
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Y OU PLAY the part of an enthusi¬ 
astic gardener, determined to 
make all your roses bloom in the 
time allowed. To do so you have sought 


fertiliser and found a supplier in the 
form of a carthorse. Move yourself with 
the usual cursor keys to pick up the evil¬ 
smelling green lumps with a shovel and 


place them at the foot of your rose 
stalks. Good for the Roses was written 
for the 16K Spectrum by P Greenwood 
of Torrisholme, Morecambe. 


10 GO SUB 9000 
20 GO SUB 6000 
00 GO SUB 7000 
40 GO SUB 6000 
50 LET t-t-1 

60 PRINT INK 3; AT l,6;t;" “ 

70 IF t-0 THEN GO TO 4000 
80 GO TO 38 

4080 INPUT "PRESS ENTER TO PLRY 
AGAIN" ; W® 

4810 GO TO 20 

5800 PRINT FLASH 1;AT 21,10;" WE 
LL DONE " 

5100 GO TO 4000 

5500 PRINT AT hy-l,hhx;" ";AT 
hy,hhx ; H _AB_";AT hy+l,hhx;" CD 
INK 2; FLASH 1; OVER 1;AT It 7+ 
l,hhx+l;-NO- 

5510 FOR TO -30 STEP -1 
5520 8EEP .05,4 
5530 NEXT 4 

5540 GO TO 4000 

6000 LET xl-x-KINKEY*-"8" AND x< 
30 )-<INKEY**"5" AND x>0> 

6010 LET yl«y+< INKEY§-"£" AND y< 
19>-<INKEY*-"7" AND y>3> 

6020 IF y-yl AND x-xl THEN RETUR 
N 


6930 PRINT AT y,x;" ";AT y+l,x;" 

M 

6040 IF ATTR <yl,xl»5€ OR ATTR 
<yl + l,xl»56 THEN LET *1-*. LET 

xl*x 

6059 IF ATTR <y 1*1.xl + 1»12? THE 
N LET s=i GO TO 6080 
6960 IF ATTR <yl + l,xl + 1 >>56 THEN 
LET *1-*' LET xl«x 
6090 PRINT INK 1;AT yl,xl;"E";AT 
vl+lsxli W FG" 

6090 IF s=l THEN PRINT INK 4; OV 
ER is FLASH 1;AT y 1 + 1,xl + l; B H" 
6100 IF ATTR <*l,xl+2><>58 AND s 
«1 AND y1*19 AND xl>0 THEN PRINT 
INK 2;AT l9,xl+2 i‘\T LET s-0 
LET r-r+1 

6110 PRINT INK 3;AT l,29;r 
6120 IF r-10 THEN GO TO 5800 
6130 LET y-xl- LET y-yl 
t 149 RETURN 
7O00 LET hx-hx+1 

7019 IF hx=30 THEN LET hx-32 

7020 IF hx*62 THEN LET hx-64 
7‘J30 IF hx-94 THEN LET hx=0 
7040 IF hx<31 THEN LET hy-3^ LET 

hhx-hx 

7050 IF hx>31 AND hx<63 THEN LET 
hy=10* LET hhx-hx-32 


7069 IF hx>63 THEN LET hy-l?‘ LE 
T hhx-hx-64 

7070 IF hx-32 THEN PRINT AT 3,30 

i " ";AT 4,30;" " 

7060 IF hx-64 THEN PRINT AT 10,3 
0;" ";AT 11,30;" " 


7098 IF hx-0 THEN PRINT AT 17,30 
";AT 18,30;" " 

7100 IF ATTR (. hy, hhx+1 )»57 OR AT 
TR < hy +1,hhx*1>»57 THEN GO TO 55 
00 

7105 IF ATTR <hy,hhx+2>5? OR AT 
TR < hy +1,hhx+2 >*57 THEN GO TO 55 
00 

7110 PRINT AT hy , hhx; " RB_" ; AT hy 
+1,hhx;" CD- 

7115 IF hK7«Q THEN GO TO 7130 
7120 IF RNO>0.98 THEN GO SUB 750 
0 

7130 RETURN 

7500 PRINT INK 4; FLASH 1;AT hy+ 
1,hhx;"H" 

7510 FOR 4-1 TO 20 

7520 BEEP .01,-20 BEEP .01,-10 

7530 NEXT 4 • 

7540 RETURN 
600O BORDER 5 CLS 
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e&05 LET t-500 

e010 PRINT PAPER 2; INK 7; AT 0,1 
0i" HORSE-MUCK " 

0020 PRINT INK 3;AT 1,1;"TIME-"; 
tiflT 1,23;"ROSES-0" 

0030 PRINT INK 2;AT 6,3; "L< >M 
UitP W'iAT 6,12; "L< i%? "5 

,20i i*P IHJ,/ i»P M u 1*P >M" 
0040 PRINT INK 6;AT 7,3; "K<~i*P >K 
K< 1 *P >J<" ; AT 7, 12; "J« 1»P >K1';AT 7 
,20; "K< i SP >KJt< 1*P >£_ K< i»P >K" 
8059 PRINT INK 6; AT 0, 3i "< i»P ){$( 
i»P> (l*P)K(l*P)"iAT 8,12;"<l»P> 
K< laP )" i AT 8,20;"< i»P )J« l»P > (I* 
P )K< 1»P ) < IsP >KC 1*P V 
9060 PRINT INK 2iAT 13,l;"L<i*P> 
M L(itP )M"iflT 13,13;"L<l»P>M Lt 1 
*P7M" i AT - 13,25; "L< l*P“5h" 


8070 PRINT INK 6;AT 14,i;"K<l*P> 
K K< 1»P )K"; AT 14,13; "K< i*P 5K K< l 
* )K" j AT 14,25; "K< isP >K" 

8080 PRINT INK 6;AT 15, 1; isP >K 
<1*P> < i»P )K< i*P >";AT 15,13; "< lft 
P )K< 1»P > < IsP >K< t»P >";AT 15,25;'* 
< i*P >K< i»P >" 

8030 FOR 4-3 TO 30 STEP 3 

8091 PRINT INK 4;AT 20,4;"I" 

8092 NEXT 4 

9100 PRINT AT 3,1; *'AB"; AT 4,1;'*C 


9110 DATA 0,0,0,0,127,255,255,25 


9180 DATA 0,0,0,0,24,60,0,0 
9130 DATA 8,8,8,0,0,0,8,8 
9200 DATA 0,0,60,126,126,255,189 
,28 

9210 DATA 255,195,195,193,195,19 
5,195,195 

9220 DATA 0,3,7,15,31,63,127,255 


8110 PRINT INK 11AT 19,0;"E'*;AT 
20,0;"FG" — 

8120 LET x—0 1 LET a-19- LET hx-0 

• LET h*«3 

8130 LET r-0 

8140 LET *-0 

8200 RETURN 

9000 FOR A-USR TO USR •*o"*7 
9810 READ b* POKE *,b 
9020 NEXT a 
9030 RETURN 


9120 DATA 8,28,58,127,243,224,22 
4,224 

9130 DATA 127,192,160,160,144,14 
4,72,0 

9140 DATA 224,32,80,72,136,132,6 

8,0 

9150 DATA 0.56,56,16,48,88,140,8 


9230 DATA 0,192,224,240,240,252 
254,255 

9240 DATA 0,0,0,0,0,3,103,255 
9250 DATA 0,0,0,0,0,98,187,255 


9160 DATA 88,20,18,41,72,132,132 
, 198 

9170 DATA 0,0,0,0,128,64,60,0 



1 

2 

130 

5 

10 

DRAW 

0 

20 

,50' 

30 

40 

50 

60 

70 

-c +1 

80 

90 

100 


LET d a &0• LET e-20 

LET a-80’ LET b-100 LET e- 

FOR z~0 TO 40 

CLS t PLOT x.i DRAW 50,0' 

0,50' DRAW -50,0- DRAW 0. 5 

PLOT b,b 1 DRAW 50,0 DRAW 0 
DRAW -50,0' DRAW 0,-50 
PLOT d,d DRAW b-a.b-a 
PLOT 130,d- DRAW e.b-a 
PLOT d,130 : DRAW b-a,e 
PLOT 130.130- DRAW e,e 
LET b-b-1 LET e-e-1- LET c 

PAUSE 10 
NEXT x 

LET d-88 LET e-20 


102 LET a^30: LET b*-60' LET c-9 

i 

105 FOR z*0 TO 40 


110 

DRAW 

0 

128 
,50- 
130 
140 
150 
160 
170 
-c— 1 

189 

190 


CLS * PLOT a,a DRAW 50,8 
0,50- DRAW -50,G DRAW 0,-5 

PLOT b.b DRAW 50.0- DRAW 0 
DRAW -50,8- DRAW 0,-50 
PLOT d,d- DRAW b-a,b-a 
PLOT 130,d DRAW -o,b-a 
PLOT d,130• DRAW b-a,-e 
PLOT 130,130- DRAW -e,-e 
LET b«b*l- LET <?*e-l* LET c 

PAUSE 10 
NEXT z 


T HE GRAPHICS on a I6K Spec¬ 
trum are limited but they can be 
used for far more than variations 
on a space invader. Ashley Munson of 
Watton-at-Stone, Hertfordshire has 
written 3D Cube which draws a cube 
on the screen and rotates it. 

This creation of large three-dimen¬ 
sional characters seems to be an area 
neglected by Spectrum programmers. 
We would like to see programs generat¬ 
ing or utilising this form of graphics. 


10 


SINCLAIR PROGRAMS September 1983 




ANALYSIS 


OTHER 

AMAZING FEATURES 

* Landing and lake ofl 
from 4 runways plus 
steering on the ground 

* Fully Aerobatic 
Performance 

» Airfield attack By the 
enemy 

* Cross winds. 
Turbulence and 
landing in tog. 

* 4 Pilot ratings, 0 
Beacons, ground 
features and map 

* Artificial horizon, 
radar and flight 
computer. 

* ILS. Flaps. U/C and 
system failures 

* 100 % machine code 
with complete 
instructions and pilot 
notes. 


inc. VAT & p. & p. 
Joystick Compatible 
(Kempston, AGF, Sinclair 
Interface 2, Protek etc.)' 


"Definitely the best 
simulation for the 
Spectrum..." 

- Crash Micro 


ONLY THE BEST BECOME A 


48K SPECTRU 

BY D.K. MARSHALL 


A SPECTACULAR FLIGHT SIMULATION OF THE 
WORLD'S MOST EXCITING JET FIGHTER WITH 
STUNNING 3D COCKPIT VIEW AND THE ^ 
MOST REALISTIC 3D AIR-TO-AIR / 
COMBAT EVER SEEN ON THE 
SPECTRUM! ^ 

The SUPREME SIMULA 

it leaves the rest at the / 

runway 
hreshold! 


FOOTBALL 

£7.95 

48K Spectrum 

League Analysis - 
Easy to use Pools 
Prediction 
With 9 methods of 
team performance 
analysis - let your 
Spoctrum guide you lo 
your pools selection 


NIGHT GUNNER 
£6.95 

48K Spectrum 

Joystick Compatible » 
The air battle where 
only aces survive - 
with enemy fighters 
attacking from all 
directions, guns 
blazing, explosive 3D 
ground attack sorties - 
and there's still the 
flight home. 


DIGITAL 

INTEGRATION 


Watchmoor Trade Centre. 
Watchmoor Road, 
Camberley. Surrey GUI5 3AJ 

Selected products available from: 

Boots Wooiworlhs. H M V Menz.es 
Greens. Lasky s. Currys. Rumbelows 
Dealers Video Palace Zappo and all good 
shops 


Please send me the 
following games tor the 
Fighter Pilot 48K 
Night Gunner 48K 
Football 48K 
Taxi (Any Spectrum) 

VAT and p & p inclusive within UK 

(Overseas me. 55p per cassette) 


TAXI 
£5.50 

Any Spectrum 

Become a Taxi Driver 
and test your skills - WIZARDS OF 

COMPUTER GAMES 
SOFTWARE 


but beware the 
Reckless Drivers' 

Fun lor all Uie family 


Spectrum 

□ £7.95 

□ £6.95 

□ £7.95 Trade and 

□ £5.50 Export 
enquiries 
welcome. 


Lifetime Guarantee Cheques payable to Digital Integration 

I enclose a cheque/P.O. for-Total. 

Name_ 


Address. 


Spectrum 


Please send to Digital Integration. Dept SP6 

Watchmoor Trade Centre. Watchmoor Road. Camberley. Surrey GUI5 3AJ 
























F OR THOSE studying the rudi¬ 
ments of musical theory, Paul 
Wakefield of Woodbridge, Suf¬ 
folk has written a 16K ZX-81 program, 
Take Note. A musical stave is printed 
on the screen and you must name each 
note as it appears. Notes are preceded 
by either the treble or the bass clef. 


500 

370 PRINT AT 3 , M ; PS 
J80 NEXT M 

399 GOTO 558 

400 LET Nl=N+r 

410 IF CODE fl*-33<>Nl+P THEN GO 
TO 500 

420 PRINT AT 8,M;AS 
430 NEXT M 
440 GOTO 550 

5O0 PRINT AT 1,1;"NOT QUITE RIG 
HT. TRY AGAIN. 

510 GOTO 340 
550 CLS 

555 PRINT AT 1,1;"WELL DONE ";N 


640 PRINT AT 15,2;"C*3’9lV 
650 PRINT AT 16,2; *'<94 >" 

660 PRINT AT 17,1;"<98>" 

670 PRINT AT 18,1;"<9u>“ 

688 LET P-2 
698 RETURN 
700 PRINT AT 

710 PRINT AT 9,3;"< 95•99 )" 

720 PRINT AT 10,3; "< 9w ’ 90" 

730 PRINT AT 11,3;"<2*95>" 

740 PRINT AT 12,3; *'< lftP >" 

750 PRINT AT 13,2;"<93 95>" 

760 PRINT AT 14,2; "< 2*9w >" 

770 PRINT AT 15,1;"<9t* 90 9*’9* 


3 PRINT "WHAT IS YOUR NAME?" 

4 INPUT N* 

5 CLS 
10 FAST 

15 FOR Y-10 TO 18 STEP 2 
20 FOR X=1 TO 30 
30 PRINT AT Y, X; "< 96 >" 

40 NEXT X 

59 NEXT Y 

60 LET CLEF-INT <RND*2+1> 

70 IF CLEFOl THEN GOSUB 6O0 
eG IF CLEF-1 THEN GOSUB 700 
100 SLOW 

'380 FOR M=7 TO 30 STEP 3 
305 LET N-INT <RND*11+1> 

310 PRINT AT 20-N,M;"<isP>" 

320 PRINT AT 21-N,M;"<isP >" 

330 PRINT AT 1,1;"WHAT NOTE IS 
THIS, ";N*;"7" 

340 INPUT A* 

350 IF N+P<5 THEN GOTO 400 

351 IF N>9 AND P-2 THEN GOTO 36 


780 PRItyT AT 16,1; 
790 PRINT AT 17,1; 


<3*9u-<94 >" 

< 95'9u'95'98 


560 PRINT "WOULD YOU LIKE SOME 
MORE?" 

561 INPUT 2* 

565 IF CODE 2*062 THEN GOTO 90 


608 PRINT AT 18,1>"<9*-96'9w'9t 


810 PRINT AT 19,3;"< 95 )" 

820 PRINT AT 20,1;"<93•91 95>" 
830 PRINT AT 21,1;"<92•96■91>" 
940 LET P*0 
850 RETURN 
990 CLS 

910 PRINT AT 10,1;"GOODBYE ";N* 
930 STOP 


566 CLS 

570 GOTO 10 

€00 PRINT AT 11,1 

94 >" 

610 PRINT AT 12,1 
620 PRINT AT 13,1 
94)" 

630 PRINT AT 14,3 


360 IF CODE A*-33<>N+P THEN GOT 
0 500 

361 GOTO 370 

365 IF CODE AS-28<>N THEN GOTO 


52 
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IF t< 


FUR e"10 TO 


1 REM '’drop" 

2 GU SUB 5000 

3 LET P*=" U » 

4 LET sc—0' LET r>-2- LET 1=3 
LET x=3' LET cs=l20 

5 LET t-INT <RND*31> 

6 IF t>27 THEN GO TO 2' IF t< 
2 THEN GO TO 2 

7 LET 9*-"<36*xsP >" 

8 LET rr.g=" R " 

9 LET a*-'’ PT " 

10 INPUT "wfilF speed? 

11 PRINT PT 13,0; INK 4;:S 

12 IF £>10 THEN GO TO 10 

20 PRINT AT 21,3;"Press arw ke 
v to start" 

40 PRUSE 0 

41 PRUSE 20- CLS • FOR e«l0 TO 
1 STEP -1 

42 LET t*INT <RND*30> 

43 CLS - PRINT RT 0,0;"SCORE*" 

;sc ; " LIVES*"; l; " DROPS 1 ®";<? 

45 LET 3-r, LET b-0 

47 PR INI RT 10, t; INK 0; ,; XXX" 

43 REM **PLANE** 

50 PRINT RT 3,b;j$ PRUSE s 

51 PRINT RT 10,0; INK 4;9S 

60 LET b-b+1• IF h>30 THEN PRI 
NT RT 13,7; "out. of time"* PAUSE 
40 CLS ’ PRINT RT 13,0; INK 4;9 
* PRINT RT 13,t; INK 0;"XXX"• G 
0 TO 3O0O 

70 IF INKEY*-"Q" THEN GO TO 10 

00 

00 GO TO 50 
999 REM fctFALL T t 
l')00 1 f;T r-j LEI d-h 
’ 002 PR INI RT 13, t . INK 0;‘'XXX" 

10! 0 PR l N1 R1 . d • f.* RT c-1, d+1; 

•t at 

1013 IF iNKEY*-THEN GO To 1G 

S3 

i 1015 PRUSE '4 

1020 LET c~c+1 IF cMC THEN GO 
'TO 3O0O 
1030 GO TO 1010 

1039 IF 017 THEN GO TO 1002 

1040 LET z*C 

1041 PRINT RT c,op*;TRB d;m*;AT 
c-1, d+1;" "• FOP f-1 TO 50‘ NEX 

T f 

1042 PRINT RT c,d+l;" " 

1043 LET c-c+l 

1045 IF c-17 RND d-t THEN GO TO 

200*3 

1046 IF c>17 THEN GO TO 30OO 
1O50 LET d~d+(INKEY*-"0")-<INKEY 
*="5">- IF d>30 THEN LET d“d-l 
1060 IF d<0 THEN LET d«d+l 

1O70 GO TO 1041 

^OO0 PRINT RT 1 ?,t;fn*' BEEP .05, 
10 

2010 LET sc-sc+z 
2015 PRUSE 50 
2O20 NEXT o 

2933 IF l*i RND sc>*cs THEN LET 
1*1+1• GO TO 420O 
2939 REM **LIVES** 

3000 LET 1-1-1 

3001 IF I-Q THEN GO TO 4000 

3002 BEEP .5,-10 
3010 NEXT e 

4000 PRINT RT 19,0; INK 4;9* PR 
INT RT 0,0;"SCORE"";sc;" LIVES- 
";1+1;RT 0,19;" DROPS*";e+1 PRI 
NT RT 15,10;"GAME OVER" 

4001 FOR 9-5 TO -5 STEP -l• BEEP 
.05.9 NEXT 9* STOP 

42!JO LET r.-n+2- FOR z~! TO 20* B 

EEP .0). r + > BLfcP .01,2-1* NEXT 

?■ IF jlM 3 THEN PRINT RT 10,0; "y 

on'vc succesfullv finished vour 

riution" - STOP 

4201 LET i-i+1 LET cs~cs 

4205 LET c—10- GO TO 20 

5000 FOR f~0 TO 7 READ 3 POKE 
USR " P"+f,3 NEXT f 

5001 FOR n-0 TO 7 READ b- POKE 
USR "t"+n,b NEXT n 

5002 FOR 9-0 TO 7■ READ c POKE 



USR "r"+9,C NEXT 9 
5003 FOP h-0 TO 7 READ d- POKE 
USR ”o"+h,d• NEXT h 
5016 DRTR BIN 0,BIN llO0OO00,BIN 
11000111,BIN 111 11100,BIN 11111 
110,BIN 11111101,BIN 00O001U,BI 
N O 

5020 DATA BIN 0,BIN 0,BIN 111000 
00, BIN 0OUllll,eiN O1011 111, BIN 
1OO11110,BIN 11100000,BIN 0 

5030 DATA BIN OO011100,BIN 01011 

lOl,BIN 01001001.BIN 00111110,81 

N 000G1000,BIN 0OO10100,eiN O01O 

0010,BIN 00100010 

5040 DATA BIN 00111110,BIN 00111 

110,BIN 01111111,BIN llllllli,BI 

N 01000010.BIN 0100O010,BIN 0100 

0010,BIN 0O10O1O0 

5G50 PAPER 5 : CLS 

5060 RETURN 


Mi 

n)ui 


Tl 

e f 


ll n l 

y 

ii 

E 1 




A S THE aircraft flies across the 
screen, jump by pressing 0. 
“ Pressing 9 opens your parachute, 
allowing you to steer with keys 5 and 8. 
Your aim is to land on the randomly- 
placed landing pad each time and the 
later you open your parachute the more 
points you gain. 


After you have dropped 10 times, if 
your score is more than 120 and you 
still have five lives remaining the game 
will continue with the aircraft flying 
slightly lower. 

Parachute Drop was written for the 
Spectrum by Andrew Burton of Work¬ 
sop, Notts. 
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5 REM ***3D*eY*TIM*CL0SS 
10 PLOT 127,0- DRAW 0,17b PLO 
T 0,87* DRAW 255,0 

20 DIM L< 127>• DIM H'127> 

30 LET R-43 
35 LET D— 1 
40 FOR T-l TO 2 
50 FOR G-l TO 127 
60 IF INKEY*="9" THEN PLOT G+D 
,fl- GO TO 100 

70 IF INKEY*="Q" THEN LET A-R+ 
1- PLOT G+D,R- GO TO 1O0 

75 IF INKEY*-"5" THEN LET A-A- 
1 ! PLOT G+D, A • GO TCI 100 
60 IF INKEY*-'*7'' THEN LET A-A+ 
.5* PLOT G+D,fl* GO TO 100 
30 IF INKEY*-"6" THEN LET A-A- 
.5- PLOT G+D,fl' GO TO 100 
91 IF INKEY*—"1 “ THEN GO TO 10 

00 

95 GO TO 60 

100 IF T-l THEN LET LCG)-fl« GO 
TO 115 

110 LET H< G >-fl 
115 NEXT G 

130 LET A-131* LET D-127- NEXT 
T 

140 OVER 1' PLOT 127,0- DRAW 0, 
175- PLOT 0,87- DRAW 255,0' OVER 
& 

145 INPUT "<i> SOUTH TO NORTH o 

r <2> WEST TO ERST ?" 

; 0 

146 IF 0-1 THEN INPUT "RADIANS 
?'*jD' GO TO 150 


147 IF 0-2 THEN GO TO 200 

148 GO TO 145 

150 FOR R-0 TO 126 STEP 4 
160 PLOT A,L<A+l> 

170 DRAW 128,88+<<H<A+1 >-88>-L< 
A+l >>,D 
180 NEXT A 

190 INPUT "WEST TO EAST RSWELL 
?“; 0 * 

191 IF Y" THEN GO TO 200 

192 RUN 

200 FOR t-0 TO 126 
210 LET B-L< T+1 > ■ LET R-T 
220 FOR G-l TO 20 
230 LET A-A+6.35' LET B-B+4.4 
240 LET B=8+< < H< T+l >-88 >—L< T+l ) 
>/20 

245 -PLOT A,B 
'250 NEXT G 
260 NEXT T 

270 INPUT "SOUTH TO EAST ASWELL 
?"» 0 * 

280 IF 0*="Y" THEN LET 0-1* GO 
TO 146 
290 RUN 
1000 LET B—43 
1010 LET A-l 
1015 LET D-l 

1020 LET LCINT D >=B 

1021 PLOT D,e 

1930 LET B-B-KSIN A> 

104O LET A-A+.04 LET D-D+.5 
1045 IF D>=127 THEN GO TO 1060 
1050 GO TO 1020 
1060 GO TO 130 


T imothy close of Shepper- 

ton, Middlesex wrote Contour 
to draw three-dimensional sur¬ 
faces on the Spectrum. When RUN the 
program will print a cross on the screen. 
Use keys five, six, seven, eight and nine 
to draw a contour line in the bottom 
left-hand square. Nine will draw a hori¬ 
zontal line; the other keys move the 
cursor from left to right at varying 
angles. 

When the bottom left-hand square 
has been crossed, the line will move to 
the top right-hand square and continue. 
The computer will then ask “1 South to 
north 2 West to east?” Inputting 2 will 
produce 20 intermediate contours re¬ 
presenting a gradual change from first 
to second contour. 

Inputting 1 will produce the question 
Radians, requiring you to input the 
curvature on your south-north lines. 
Straight would be 0, maximum curva¬ 
ture around 2.5. No matter what option 
you select, you will be given the option 
of including the other. 
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100 REM ==ONE-TIME== 

120 LET ga*e=0; LET hs=0 
14-0 DIM a$<5): DIM a (65) : DIM b 
<65.* ; DIM S iGS) : DIM C (65) 

160 RANDOMIZE 

500 REM ==GRRPHIC5 = = 

510 DATA "A" , 16,66,72,1,20,63 ,3 

1§ 2 ® £ fiTft ”B" / 0,24, 24,24 ,24-, 60,2 
—5,2o5 


530 

DATA 

*'C" 

# 

36,0 




540 

DATA 

"D" 

/ 

, 90 , 

3 



550 

DATA 

11 g t • 

s 

55,255,255 



560 

DATA 

• » p: ■ > 

$ 


5 , 255 , 255 , 255 

f«S "9 "4.g , 24,24,24- , O , 0,0 , £ 

600 FOR n = 1 TO 7: READ gj: FOR 
i=0 TO 7: READ a; POKE USR g* + i, 
3 : NEXT i : NEXT n 
620 LET a $ (2) =••*": LET a$(53="V 

700 REM ==ScT-UP== 

720 LET sc=0 
74-0 LET r=. 3: LET y =4- 
760 LET S=0: LET g =15 
S00 BORDER 0: OL5 
620 PRINT AT 16,0;” 


64-0 PRINT AT 17,0; " 


660 PRINT AT 16,0; 


3S0 PRINT AT 20,g; "1“ 

200 PRINT AT 0,2; "Score : ; sc 

910 PRINT AT 0,23; INK 1; " V ; I 
NK 0;"=5 INK 2; INK 0 ;" = 

S20 IF game<>0 THEN GO TO 3O00 
960 REM ==INTRO== 

1000 FOR J=1 TO 3: FOR n=30 TO 6 
0: BcEP .01,n: NEXT n: NEXT i 
1020 PRINT AT 10,3; FLASH 1;" DO 
you want instructions? " 

104-0 IF INKEYJ = — THEN GO TO 104- 
0 

1060 PRINT AT 10,0;" 

1060 IF INKEY$="y" OR INKEY$=“Y” 
THEN GO TO 1140 

1100 IF INKEY$="n" OR INKEYS="N“ 
THEN GO TO 3000 
1120 GO TO 1020 

1160 PRINT AT 4-,12; FLASH 1,"INU 
ADERS" 

1300 PRINT AT 6,0;" The very 

simple aim of this" 

2320 PRINT •• simple game is to 
destroy the" 

134.0 PRINT " invaders that are 
landing on " 

1360 PRINT " the earth." 

1380 PRINT You control you 

r base with" 

14-00 PRINT " the Keys 'S' and ' 
3' and fire" 

14-20 PRINT " with Key '7'." 

14-4.0 PRINT " © r 

-LUCKett- 

14-60 INPUT " Press ENTER to sta 
ft: "; LINE X s 
2500 FOR i =4. TO IS 
2520 PRINT AT i ,0; " 


that are 


the earth." 

You control you 

the Keys '5' and ' 

with Key '7'." 

© R 

Press ENTER to sta 


1540 NEXT i 

3000 REM = = INUADERS = = 

3020 FOR i=1 TO 2 

3040 FOR J =1 TO 13 

3060 LET X=13*Ci-l)+j 

3080 LET SCX)=5: LET C(X)=1 

3100 LET btX)=2+2ii 

3220 LET a Cx) =i + J*2 

3200 FOR i=1 TO 3 

3220 FOR J =1 TO 13 


3240 LET X=26 + 13Hi-l) +.i 
3260 LET SCX)=2: LET C(X)=2 
3280 LET bfx)=6+2*i 
3300 LET a lx) =i+ J *2 

3320 PRINT INK C(X);AT b(X),a(X) 

• 2 $ ( ^ C X j J 

334© NEXT j 

3360 NEXT i 

4000 REM = =LOOP = = 

4020 FOR n =1 TO 65 
406© LET 91=9 

41©0 IF INKEY $ = " " THEN GO TO 450 

4120 IF INKEY $ = " 3" THEN LET Q =0 + 
2: GO TQ 4300 " 

4140 IF INKEY $ =" 5 " THEN LET 9=9 - 
1: GO TO 430G 

3140 PRINT INK CfX);AT b (X) , a fX) 
; a $ is ex) ) 

3160 NEXT J 
31S0 NEXT i 

4160 IF INKEY $ = "7" AND INT (n/y) 
=n/y THEN GO TO 4200 
4180 GO TO 4500 
4190 REM = =FIRE = = 

4200 LET i1=19 

4210 FOR i=18 TO 3 STEP -1 

4220 IF POINT (gjS+2, (21-i) iS + 4) 

=1 THEN GO TO 4240 

423© PRINT AT “: PRINT AT 

i,g; INK 3; LET il=i: NEXT 

i: GO TO 4280 

4240 IF POINT Cg*S,C22-iJ*8)=1 T 
MEN GO TO 4280 

425© IF POINT Cg*6,C21-i)*6+6)=1 
THEN LET SC=SC+3 
4260 LET SC=SC+2: PRINT AT 0,3;s 

4270 IF SC=208 OR SC=436 OR SC=6 
54 OR SC=892 THEN PRINT AT il,g; 
" ": PRINT AT i,g; INK 2; ”&*" : BE 

=P .5,-50: PRINT AT i,g;" ": GO 
TO 6000 

4260 PRINT AT il,g," PRINT AT 

i,g, INK 2; : BEEP .5,-50: PR 

INT AT i , g; " " 

4290 GO TO 4500 
4308 REM ==MOUE== 

432© PRINT AT 20,gl," " 

4340 IF g >29 OR 9 <2 THEN LET 9 =9 

4360 PRINT AT 20,g;"A" 

4500 ._REM =^TNUADEP5 = = 

4520 if a en )=0 then go to 7000 

4540 IF POINT (a(n)iS+2,(21-b(n) 

)*6+4)=0 THEN LET a(n)=0: GO TO 
7000 

544© print AT b(n),a(n);" " 

5460 LET aen)=a(n)+i 
5480 IF a(n)=30 THEN LET b(n)=b( 
n)+2: LET aen)=H: IF b(n)=18 THE 
N GO TO B40© 

5520 PRINT INK c(n);flT b<n),a(n) 

; a$ es en) ) 

5000 REM = =ATTACK = = 

5020 IF RND < r THEN GO TO 7000 

5040 LET h =INT (RND*65) +1 

5100 IF POINT Ca th) *8+2, (21-b<h) 

)*8+4)=0 THEN LET h=n 

5140 PRINT FLASH 1; INK C(h);AT 

b fh) ,3(h);a$ls(h)) 

5160 FOR i=16 TO 18 

S1S0 IF POINT Caeh)*8,C21-i)*S)= 
I THEN GO TO 6240 
5200 NEXT i 
5220 LET i=20 

5240 PRINT AT i,3Ch); INK 2j ; 
BEEP .1,-30: PRINT AT i,a(h);" 

5260 IF i=20 AND a(h)=g THEN GO 
TO 3300 

5280 PRINT FLASH 0; INK C Ch);AT 
b Ch) , a (h) ; a$ es eh) ) 

5300 GO TO 7O00 

700© NEXT n: GO TO 4000 

3000 REM ==UIN== 
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514.0 PAUSE 1: PAUSE 1: PAUSE 1 : 
PAUSE 10 

52.60 LET StiSC420: PRINT AT 0,2; 
**score: ";sc; " 

31S0 GO TO 3000 
3260 REH ==LANDED== 

S220 PRINT AT 3,0; FLASH 1;" 
THEY * UE LANDED 

324-0 FOR n =1 TO 15: BEEP .1,-30; 

PRUSE l+RNDi4: NEXT n 
3260 PRINT RT 3,0; FLRSH 0,” 


W E HEREBY inaugurate a new 
quest for the Sinclair Program¬ 
mer Our Spacman project is, 
we think, approaching its triumphant 
conclusion—we can feel you all closing- 
in on that elusive muncher—so it is just 
the time to implant a new ambition in 
your heads. 

Send us an arcade-quality Invaders 
game. Fast moving, colourful, with all 
appropriate effects. 

R Luckett of Stratford-on-Avon has 
provided all you need to begin the 
project. His program gives you the laser 
base, the rows of descending aliens and 
the disintegrating bunkers to lurk be¬ 
hind. It is a little slow, however, and the 
power beams from the aliens are invisi- 


3300 REH ==LOSE== 

S320 FOR n=l TO 10: BEEP RND 
PRUSE CRNDf3)+1; NEXT n 
334-0 BORDER 7: CLS 
3360 PRINT RT 6,0;" 

O Bad! 

3360 PRINT '" Better lut* 

t tise! 

5460 PRINT ; Scot 

sc; " 

34-20 IF SONS THEN LET hS=SC 
3440 PRINT ;High SCOT 
^ - • • •• 

3500 PRINT RT 16,0; FLASH 1; 
Do you want another game'? 
3540 IF INKEY$="" THEN GO TO 

3560 IF INKEV'$ = ‘‘y" OR INKEY'S 
THEN LET game=l: GO TO 700 
5560 IF INKEY$ = "n" OR INKEY $ 
THEN CLS : GO TO 9900 
3500 GO TO 3540 


, 60 : 


nex 
e : 


e; 


S54 

_ My m 

= *N” 


ble. Race right with 8, lurch left with 
the 5, and 7 shoots your blaster beam. 
(48K Spectrum). Graphics notes: 

620—Graphic D, graphic C 


820—Graphic E, inverse space, graphic 
F. 

880—Graphic B 
4230—Graphic G. 


SINCLAIR PROGRAMS May 1983 


15 






P PEEK 23560«= 79 > 

165 IF INKEYS»"h" OR INKEYS="H" 
THEN PAUSE 0 

170 IF SCREENS <k,l>-"*" THEN G 
0 SUB 1000 

180 IF HTTP < k , l>*49 THEN GO TO 
1500 

185 PRINT RT 0.0; s 
190 IF s-q#4.'2 THEN GO TO 3000 
200 GO TO 90 
1000 IF k-0 THEN LET k = l 
1010 IF k»21 THEN LET k-20 
1020 IF 1-0 THEN LET 1-1 
1030 IF 1-31 THEN LET 1=30 
1050 RETURN 

1200 IF INT j—0 OP INT J<3 THEN 
LET J=1 

1210 IF INT j-21 THEN LET J-0 
1220 IF INT h=0 OR INT h<0 THEN 
LET h«l 

1230 IF INT h=31 THEN LET h-38 

1240 RETURN 

1500 CLS 

1505 READ 3 

1510 BEEP .5.3 

1520 ORTA 6,9.3,2.5.7.6,5.4.9,1. 
0 

1540 IF 3=0 THEN .RESTORE 3' GO T 
0 1560 

1550 GO TO 1505 

1560 PRINT - PRINT PRINT "YOU 
CRASHED"'" WITH A SCORE OF ";s 
1570 INPUT - Another 93me ?";9* 
1580 IF q*«-V OR q*="Y" THEN GO 
TO 1 

1999 STOP 

2000 CLS < PRINT " IT GOT 

YOU "* PRINT • PRINT " YOUR 

SCORE IS ";s 

2020 INPUT "Another 9ame ? ";q* 
2030 IF <3S="y" OR q*="Y" THEN GO 
TO 1 

2500 STOP 

3000 FOR r =0 TO 30 

3010 FOR 2=0 TO 5- BEEP ,01.2= N 

EXT z 

3020 PRINT FLASH 1;AT 18,12;"YOU 
WON" 

3100 LET 3=INT <RND*7>+1 
3110 PAPER 3 
3120 NEXT n 

3130 INPUT " Another game ? ";9* 


3140 IF qS="y" OR q#="Y" THEN GO 
TO 1 

3150 STOP 
4010 PAUSE 100 

5000 cls « print " vs'.y;/.v.yyw'v. m <m 
ve ny^y^.y.y.y.y.y.y.y." 

5010 PRINT = PRINT "In this Same 
you. have to make the 9host ea 
t the blobs."'"But if the 9host 
catches you it will eat you and 


if you run intothe 
1 be SPLATTED." 
5020 PRINT » PRINT 
e this CJ 

5030 PRINT • PRINT 
oks like this 
5040 PRINT * PRINT 
ok like this Afl 

AA" 

5050 PRINT 
keys'-" 

5055 PRINT 
ft" 

5060 
5065 

5067 

5068 


blobs you wit 


"You look lik 


lo 


"The 9host 
INK 2 j"B" 

"The blobs lo 


PRINT "To move use 
PRINT "w to move U 


PRINT 
PRINT 
PRINT 
PRINT 
o cont>" 
5070 INPUT 


e 

“o 

"k 

"h 


to 

to 

to 

to 


move 

move 

move 

hold 


right" 
uP" 
down" 
Cany key 


"How many blobs ?";q 


6000 

6010 

6020 

6030 

6040 

6050 

6060 

6080 

6090 

7000 

7010 

7020 

7030 

7040 

7060 

7070 

7080 

7090 

8000 

e0i8 

8020 

8030 

8050 


POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 


"a".BIN 11111111 
"a"+l.BIN 10000001 
"a"+2,BIN 
"a"+3,BIN 
"a"+4,BIN 
"a"+5,BIN 


"a"+6,BIN 
"b", BIN 
"b"+l.BIN 
"b"+2,BIN 
"b"+3,BIN 
"b"+4,BIN 
"b"+5,BIN 
"b"+6,BIN 
"c", BIN 
" c " + 1 , BIN 
"c"+2,BIN 
"c"+3,BIN 
"c"+4.BIN 
"c"+5,BIN 
"c"+6,BIN 
"c"+7,BIN 


11111111 

10000001 

11111111 

10000001 

11111111 


01111100 

11010110 

11111110 

11111110 

01111100 

01010100 

0001000 

0011100 

1010101 

1000001 

0001000 

0001000 

0111110 


RETURN 


M OVE IT is another round in 
the continuing battle between 
. you and the ghosts which 
haunt your Spectrum. The ghost chases 
you round the screen and you score by 
tricking it into crashing into the blobs. 
If the ghost catches you it will eat you 
and if you run into a blob you will be 
SPLATTED. 

The program was written by R Wile- 
man of Emsworth, Hampshire. 


1 PAPER 7= CLS « GO SUB 6880- 
GO SUB 5000 

2 CLS • GO TO 50 

5 LET s-0* LET k = 15 = LET 1=15 
« LET j=l' LET h=20 

10 FOR a-0 TO 31< PRINT AT 0,3 
PRINT AT 21,a;"*"= NEXT a 
20 FOR a=0 TO 21- PRINT AT a,0 
;"*"' PRINT AT a,31;"*"' NEXT a 
30 PRINT AT 1,1;"*" 

40 GO TO 90 
50 FOR n-0 TO 4-1 
55 LET w-INT <RND*19>+!' LET e 
-INT ( RND*29)+l 

60 PRINT INK 1; PAPER 6;AT w.e 


65 PRINT INK U PAPER 6;AT w+1 
,g; "AA" 

70 NEXT n 

80 GO TO 5 

90 PRINT AT k,l;"C" 

100 PRINT AT INT j,INT h;" "• L 
ET j»J+.8*Cj<k>-.5*<J>k>■ LET h= 
h+.8*<h<l)-.5*<l<h> ; IF ATTR <IN 
T J,INT h>-49 THEN LET s=s+l 

101 IF SCREENS <INT j,INT h>="* 
" THEN GO SUB 1200 

105 PRINT INK 2; PAPER 7;AT INT 

J,INT h; "B” 

110 IF ATTP <k,1>=58 THEN GO TO 

2000 

145 PRINT AT k,l;" " 

150 LET 1 = 1-C PEEK 23560-119 OP 
PEEK 23560-87>+<PEEK 23560=101 0 
R PEEK 23560-69) 

160 LET k=k+< PEEK 23560-107 OP 
PEEK 23560-75 >-<PEEK 23568-111 0 
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10 
100 
110 
130 
» GUT 


1O0S 
Sit t 
1010 
1020 
1030 
104-0 

-dx : 

1050 


S010 PRINT INK 2. PAP 
I ®' i i OUER 0, 

=02© BEEP .©5,31-i 
=030 NEXT i 
3040 PRINT AT O.i, BR 
INK 8; PRPER S; 
LET X=dt2: LET y 
XF S<S<X> THEN G 
5S08 POKE 23650,8 
oSIG INPUT PRPER 2; I 
• 'You sue it to t*»e 
•’ , 'EfiTcR NOME 110 MRX 
. LINE -* 

3515 POKE 23656,0 
5520 IF S>=S(y) THEN 
ily): LET S(X)=S<y): . 
*: LET Sly) =S : GO TO 
6S30 IF S>»iiX) THEN 
*: LET S ( 3 ) =S 
5540 CLS 

SSS0 PRINT FLUSH 1,RT 


INK XHT (PND 


W E DO NOT understand how 
this game can be so addictive. 
The basic concept could 
scarcely be more simple. It is a Break¬ 
out-type game in which you are re¬ 
quired to blast away an advancing wall 
before it crushes you. There are tactics 
to be employed, like hitting foundation 
stones and bringing down a series of 
bricks above them, and attacking the 
next wall in the series through the gaps 
in its predecessor; the multi-coloured 
bricks are very pretty; the finger work 
could not be easier, but why do we 
become so wrapped up in the thing? 
Perhaps we are just claustrophobics. 

The game was submitted by D Valen¬ 
tine of Mansfield, Nottinghamshire. 
(16K Spectrum). Graphics notes: 
1110-Graphic A 
6010—Graphic B. 


BFM DEMOLITION 

SeEP®*,!®”* 1 *" 1 *"* 

POKE 23658.0 
GO SUB 9000 

f*:§5 E S g OD gg 


PRINT Cl, AT 0,0; FLUSH l;Tfl 
PRESS R NY KEY". 


BORDER 


PROSE O 
LET S 
a =40 

GO TO 8000 
INK 0: PAPER 6. 

GO SUB 7000 

PRINT Bl;AT 0,0;"SCORE:O"," 
SCORE: ";s < a *2 — 1> 

LET r -INT 1RND»10-*1> 

LET dx-<r >5) -If <*5> : LET X = 
r <=5> 

LET il:< 

LET **=INKEYS 
LET x =X ♦ d X 

IF X > 31 OR X<0 THEN LET dx - 
GO TO 103© 

PRINT RT 0,x;"RT 0,xl;" 

1060 IF **<>"" THEN LET b 
3 TO 1100 
1070 GO TO 1010 
1100 IF b<d THEN GO TO 2000 
1105 LET b —0 • LET C=C* X: IF 0*1 
3 THEN LET C* 

111© IF C =S THEN LET 

1115 IF C °0 THEN LET W*=CMR* 17* 
CHR$ 6 *CHRS 16*CMR* 0+CHRS 6*CHR 

file POKE 23692,255: PRINT SI; RT 
0,0,,»2,RT 21,0' PRPER 0, INK I 
NT (PNDf6H);»*;Hl;«T 0,0; "SCORE 
:”;S,"HIGH SCORE: "; 5 Id *2-1) 

1125 PRINT RT 0,x;"*” 

LL30 LET L»USA USB "C"-. TF LOSS 

535 THEN GO TO 6000 

2000 BEEP .03,-12 

2005 LET y =0 

201© LET yi=y 

2020 LET y=y*l 

2025 IF y >21 THEN PRINT RT yl.x, 
*• GO TO 1000 

*'020 I B RTTR ly,X)i:d THEN GO TO 
300© 

2340 print AT y,x;"*“;AT y1,x;" 

-350 GO TO 2010 

-000 PRINT RT y 1, x ; " •* 

3010 LET IXBX: LET fX»X 
3020 LET l=RTTR Cy,lX> 

3025 LET r=RTTR ly,rx) 

3030 IF l=a AND r =3 THEN GO TO 1 

000 

3035 IF l<>a AND Ixorx THEN LET 
5*£45. BEEP .O1,10*X-IX 

3036 IF r 03 THEN LET $-S*S BEE 
P .01,10»rx-X 

-;0S7 PRINT SI; AT 0,6, *_ 

-.040 PRINT at y , tx; ’ AT y,rx," 

LET rx=rx 


7330 NEXT i 

seel PAPER N S: INK O: BORDER 3: C 

§? l ?, p ^K>? T PAPtfe 5«»e&*8! x 8 

5 S. p f? s io :: sfewaM°{hi h i3 

vancins **aii. before *t re 

aches you." 

3030 PRINT . 

r b«U- - 

^spflCE 1 ^ *" press a-^y Key eg 
§0S0 PRINT a1;AT 0,0; INK 0; PAP 
1-MBB[>- £LECT DIFFICULTY ? *1-5) : 
3055 LET w * = INKEY S 

fi ?O 0 805a**<"1“ OR THEN GO 

5070 LET d =UAL a* 11) 

8080 PRINT M;gT 0,0; ink 1; POP 
ER 6; PRESS ANY KEY TO START G 
AME “• PAUSE 1: PAUSE O 
3O90 GO TO S0O 

=»O00 RESTORE 9200: FOR i =USR "a" 
TO USR ” C *' *17: READ X: POKE i,X 
NEXT i 

-010 DXH 5*110,10): DIM *110) 
3020 FOR i=1 TO 10: LET S*li)=". 

.“: NEXT i 

5030 RETURN 

9200 DATA 0,126,126,126,126,126, 
i 266 

3210 DATA 6,24,96,255,255,96,24, 
3300 >DAT A 33 , 0 .65,1,32.0, 126 ,254 
(126,200,35,13,32,-6,1.255,25S,2 
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M ATRIX is one of those rare but 
excellent routines in which the 
computer answers back. It is a 
game of strategy requiring you to move 
a flashing cursor across a matrix of 
numbers, collecting the highest avail¬ 
able values by hitting the 0 key. 

The restrictions are that you can 
move only horizontally and that you 
must avoid giving the computer, which 
moves vertically, any access to the high 
numbers. The winner is the player with 
the highest score when more moves are 
impossible. Instructions and prompts 
are contained within the game and a 
running score is kept. 

The computer plays very well, obvi¬ 
ously in its element with the requisite 
number-crunching, and in our tests it 
managed to win more often than not. 

An interesting and original listing 
from T J Marrow of Wirral, Mersey¬ 
side. 

In our listing, lower-case letters signi¬ 
fy inverse video except when inside 
brackets, when they are graphic instruc¬ 
tions. (16K ZX-81) 

1 PRINT RT 10, 10j "<inverse MR 
TRIX )" 

7 PRINT RT 17,8;"BY JRMES MRR 
ROW " 

8 PRINT RT 20,4;"DO YOU WRNT 
INSTRUCTIONS?" 

9 INPUT IJ* 

10 IF U« 1 )*"Y" THEN GOTO 2000 
11 CLS 

12 PRINT RT 10,5;"WHO RM I PLR 
*YING WITH?" 

13 PRINT RT 13,7;"<INPUT YOUR 
NRME >" 

14 INPUT N* 

15 CLS 

16 IF LEN N$<9 THEN GOTO 19 
17 PRINT RT 13,3;"YOUR NRME IS 
TOO LONG." 

18 GOTO 14 

19 PRINT RT 10,2;"EXCUSE ME WH 
ILE I SET UP";TAB 6;"THE BORRD, 
";N* 

20 REM shuffle board Pieces 
21 LET LP«0 
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22 LET M0«2 
25 DIM B*< Qf 16) 

30 LET R*®"#151009090908080807 
07070606060505050404040303030202 
020101010000000000-1-1-1-2-2-2-3 
-3-3-4-4-4-5-5-5-6-6-6-7-7-7-8-S 
-8-9-9-9-900 " 

40 FOR N-l TO 8 
50 FOR M-l TO 8 
60 LET R-INT < < RND*< < LEM R*-l) 
/2))+l )*2 

70 LET B*<N,M*2-1 TO M*2>*R$<R 
TO fl+1 ) 

00 IF R*<fl TO R+l)-" " THEN G 

OSIJB 1500 

90 LET R*-R*<1 TO R-l)+R$<R+2 
TO LEN R$> 

100 NEXT M 
110 NEXT N 

120 REM score variables 

130 LET S-Q 

140 LET T«0 

160 GOSUB 700 

170 REM Players move 

175 GOSUB 3080 

180 PRINT RT 2*Y,1+<X-1>:*3;"<tw 
o inverse 'RSTERISKs)" 

190 PRINT RT 2*Y.. l+< X-l >*3; Y 
,2*X-1 TO 2*X) 

200 IF INKEY*-"" THEN GOTO 180 
210 LET R$«INKEY* 

213 IF R$» ,, IJ" THEN GOTO 920 
215 IF R$< >"8" RND R$<>"5" RND 
R*< >"0" THEN GOTO 180 

219 IF R$*"0" RND B*<Y,2*X-1 TO 

2#X)*" " THEN GOTO 180 

220 IF R*«"0" THEN GOTO 270 
230 LET X»X+< fl$*"8")-< R$»"5") 
240 IF X>8 THEN LET X-l 

250 IF X<1 THEN LET X®3 
260 IF B*< Y,2#X-1>*" " THEN GOT 
0 230 

265 GOTO 180 

270 LET LP-VRL Y , 2*X-1 TO 2* 
X) 

275 PRINT RT 2*Y,l+<X-l>*3;" " 

280 LET S-S+LP 
290 LET MO*l 

295 LET B*< Y, 2YX-1 TO 2*X)=" " 


297 GOSUB 765 

300 REM computers move 

301 GOSUB 4000 
305 DIM R<8> 

310 FOR N-l TO 8 
315 LET V—100 

325 IF N**Y THEN GOTO 430 

330 IF B*<N,2*X-1 TO 2*X><>" " 

THEN GOTO 360 

340 LET W—100 

345 IF N-Y THEN GOTO 420 

350 GOTO 370 

360 LET W=VRL B*<N,2*X-1 TO 2*X 

) 

370 FOR M-l TO 8 
370 FOR M-l TO 8 
380 IF M«X THEN GOTO 410 
390 IF B*<N,M*2-1 TO M:*2>=" " 

THEN GOTO 410 

395 IF VRL B*<N,M*2-1 TO 11*2 XV 
THEN GOTO 410 

400 LET V-VRL B*<N,M*2-1 TO M*2 

) 

410 NEXT M 
420 LET R< N)=W-V 
430 NEXT N 
440 LET V—100 
450 FOR N=1 TO 8 
460 IF B*<N,2*X-1 TO 2*X)«" " 

THEN GOTO 489 

470 IF RCNXV THEN GOTO 489 
475 LET V-RCN) 

480 LET Y*N 

489 NEXT N 

490 LET LP-VRL B$<Y ,2*X-1 TO 2 % 
X) 

500 LET T-T+LP 

505 PRINT RT Y*2,l+<X-l>*3;" " 

510 LET B$<Y,2*X-1 TO 2*X>-" " 

520 LET M0=2 
530 GOSUB 765 
540 GOTO 170 

699 REM draw board 

700 CLS 

701 PRINT RT 0,0.; "< nine inverse 
SPRCEs;inverse MRTRIX;ten iriver 

se SPRCEs)" 

706 FOR N-l TO 8 

710 PRINT RT <2*N>-1,0;"<twenty 
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five inverse SPACEs)" 

720 FOR M*1 TO S 
730 PRINT RT 2#N,<M-l)#3;"<inve 
rse SPACE)" j B$<N,2#M-1 TO 2*M) 
740 NEXT M 

745 PRINT RT 2*N,24;"<inverse S 
PACE)" 

750 NEXT N 

760 PRINT AT 17,0;"<twenty five 
inverse SPACEs)" 

770 PRINT AT 19,2;N*;" • ";S;" 

ii 

780 PRINT AT 21,2;"ZX81 * ";T;" 

ii 

790 PRINT AT 19,15;"LAST PIECE 

* ";LP;" " 

795 PRINT AT 21,14;" 

ii 

800 IF MO-1 THEN PRINT RT 21,14 
;"MY TURN" 

810 IF MO-2 THEN PRINT RT 21,14 
;"YOUR TURN,";N$ 

820 RETURN 

910 REM Same over 

920 CLS 

925 PRINT RT 4,8;"<thirteen inv 
erse RSTERISKs )" 

930 PRINT RT 5,8;"<inverse R8TE 
RISK SPRCE GAME OVER SPACE ASTER 

ISK)" 

935 PRINT RT 6,8;"<thirteen inv 
erse ASTERISKS)" 

940 PRINT RT 9,7;"MY SCORE IS " 
; T 

950 PRINT RT 11,2;"YOUR SCORE," 
;N$;",IS ";S 

955 PRINT RT 13,7;"PRESS ANY KE 
V " 

960 IF SOT THEN GOTO 1000 
970 PRINT RT 17,6;"<inverse DRA 
W ) " 

4390 IF INKEY®* 5 "" THEN GOTO 990 
995 GOTO 1200 
1000 IF S>T THEN GOTO 1050 
1010 PRINT RT 17,9;"<inverse I W 
ON)" 

1020 IF INKEY®-"" THEN GOTO 1020 
1030 GOTO 1200 

1055 PRINT RT 17,6;"<inverse YOU 
WON)" 

1070 IF INKEY$“"" THEN GOTO 1070 
1200 CLS 

1210 PRINT RT 10,3;"DO YOU WANT 
ANOTHER GAME?" 

1220 INPUT U* 

1230 CLS 

1240 IF U*0)-"Y" THEN RUN 

1250 PRINT RT 10,11;"THANK YOU" 

1260 STOP 

1500 LET Y-N 

1510 LET X-M 

1520 RETURN 

2000 CLS 

2001 PRINT RT 1,12;"<inverse MAT 

RIX )"; TAB 11;"-" 



2005 PRINT AT 4,1;"YOUR RIM IS T 
0 GAIN MORE POINTS" 

2010 PRINT "THAN THE COMPUTER. W 
HEN IT IS" 

2015 PRINT AT 6,0;"YOUR TURN, YO 
U MOVE THE ""< two inverse RSTERI 
SKS)"" WITH" 

2020 PRINT "THE ""8"" AND ""3"" 
KEYS UNTIL IT IS" 

2025 PRINT "OVER THE PIECE YOU W 
ANT, THEN" 

2030 PRINT AT 9,0;"YOU PRESS ""0 
"" TO TAKE IT." 

2035 PRINT "PRESS ""IJ"" TO STOP 
THE GAME." 

2040 PRINT AT 12,1;"THE COMPUTER 
MOVES VERTICALLY," 

2050 PRINT " AND YOU MOVE HORIZ 
ONTALLY." 

2055 PRINT AT 18,5;"WHO AM I PLR 
YING WITH?" 

2060 PRINT AT 20,7;"(INPUT YOUR 
NAME)" 

2070 INPUT N$ 

2075 CLS 

2080 IF LEN N$<9 THEN GOTO 19 
2090 PRINT RT 13,7;"YOUR NAME IS 
TOO LONG" 

2100 GOTO 2070 

2999 REM is Same over! 

3000 IF B*<Y)-"<sixteen SPACEs)" 
THEN GOTO 920 

3010 RETURN 
4000 LET C®*"" 

4005 FOR N-l TO 8 
4010 LET C$=C$+B$C N, X#2-l TO X*2 
) 

4020 NEXT N 

4030 IF C$=*"<sixteen SPACEs)" TH 

EN GOTO 920 

4040 RETURN 

5000 REM MATRIX 

5010 SAVE "MATRIX" 

5020 RUN 


42 
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Easily programmed voice control 

Sensitive to individual voice prints 

Instant response on screen 

Your attention can stay on the screen 
- not on the controls 

with sirnczian 
ZX Spectrum 

HOME COMPUTER UNITS 

MAJOR PRICE n nc 

BREAKTHROUGH R.R.P 


A SENSATIONAL ADVANCE IN 
COMPUTER GAME TECHNOLOGY 


YOU SPEAK 


THE COMPUTER OBEYS 













COMMODORE 


NEW RELEASES! 


COMMODORE 64 


1 Hinxman 

Hive-cave actionf 
Bertie Bee needs help 
delending the hive. Fight oft 
the invading swarms, battle 
the bees and defend your 
Queen! 


BUG. 


£7.95 


Author Indescomp 
Itchy action! 

Jump your way out of the 
caves with Bugaboo the flea 
but beware of the fearsome 
Dragon as you tump around 
the exotic vegetation. 


TRUW 


the Ants m the soft 
solid 3D city of Antescher 




SPECTRUM 


Indescomp 

Action beneath the 

/ 

Fred the Intrepid 
Archaeologist searches the 
creepy catacombs below the 
torrid tomb of 'Tootiecarmoon' 
for the terrible treasures 
amidst monstrous mummies, 
ghastly ghosts, bats and rats! 


Oulcksllva programs are available from: Boots. W.H. Smiths. J. Menzies, Microdealer. 
HMV. Hamleys, John Lewis, Computers for All and all reputable 
specialist computer stockists. 

























